Metrics for Spherical law of cosines

start0.0ms (0%)

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

analyze1.1s (3.3%)

Memory

29.4MiB live, 909.4MiB allocated; 902ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 21 to 19 computations (9.5% saved)

sample4.3s (12.9%)

Memory

103.8MiB live, 5 129.9MiB allocated; 920ms collecting garbage

Samples

3.2s	6 299×	1	valid
478.0ms	1 827×	0	valid
60.0ms	24×	3	valid
50.0ms	106×	2	valid

Precisions

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

ival-cos: 1.4s (40.6% of total)

ival-sin: 913.0ms (27.3% of total)

ival-mult!: 376.0ms (11.3% of total)

ival-acos: 336.0ms (10.1% of total)

adjust: 280.0ms (8.4% of total)

ival-sub!: 40.0ms (1.2% of total)

ival-add!: 38.0ms (1.1% of total)

Bogosity

explain387.0ms (1.2%)

Memory

-4.8MiB live, 512.9MiB allocated; 88ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Example	Subexpression
66	130	(-1.2348795883884428e-292 5.5684570081124815e+116 -1.431722840821532e-84 6.34629574899241e+204 -8.607710036213171e-277)	-	`(cos.f64 (-.f64 lambda1 lambda2))`
14	0	-	-	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
1	0	-	-	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
0	0	-	-	`lambda2`
0	0	-	-	`phi2`
0	0	-	-	`(*.f64 (cos.f64 phi1) (cos.f64 phi2))`
0	0	-	-	`(-.f64 lambda1 lambda2)`
0	0	-	-	`R`
0	0	-	-	`(sin.f64 phi1)`
0	0	-	-	`(cos.f64 phi2)`
0	0	-	-	`lambda1`
0	0	-	-	`(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))`
0	0	-	-	`(*.f64 (sin.f64 phi1) (sin.f64 phi2))`
0	0	-	-	`phi1`
0	0	-	-	`(sin.f64 phi2)`
0	0	-	-	`(.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)`
0	0	-	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`cos.f64`	`(cos.f64 (-.f64 lambda1 lambda2))`	sensitivity	196	0
`acos.f64`	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`	sensitivity	14	1
`+.f64`	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`	cancellation	1	0

Confusion

	Predicted +	Predicted -
+	80	0
-	127	49

Precision

0.3864734299516908

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	80	0	0
-	127	1	48

Precision?

0.38461538461538464

Recall?

1.0

Freqs

test

number	freq
0	49
1	203
2	4

Total Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	1	0	0
-	0	0	0

Precision?

1.0

Recall?

1.0

Samples

202.0ms	404×	1	valid
26.0ms	2×	2	valid
21.0ms	106×	0	valid

Compiler

Compiled 207 to 55 computations (73.4% saved)

Precisions

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

ival-cos: 104.0ms (50.8% of total)

ival-sin: 45.0ms (22% of total)

ival-acos: 18.0ms (8.8% of total)

ival-mult!: 17.0ms (8.3% of total)

adjust: 16.0ms (7.8% of total)

ival-sub!: 3.0ms (1.5% of total)

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

preprocess44.0ms (0.1%)

Memory

-2.0MiB live, 43.3MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	130	412
1	346	408
2	745	408
3	1755	408
4	3844	408

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	76.5%	(.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

(negabs R)

(sort phi1 phi2)

Compiler

Compiled 38 to 34 computations (10.5% saved)

series47.0ms (0.1%)

Memory

19.2MiB live, 68.2MiB allocated; 10ms collecting garbage

Counts

17 → 106

Calls

Call 1

Inputs
(.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)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.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))))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(sin.f64 phi1)
phi1
(sin.f64 phi2)
phi2
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
R

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

Calls

15 calls:

Time	Variable		Point	Expression
13.0ms	phi1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
4.0ms	phi2	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
3.0ms	lambda1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
3.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)
3.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) phi1 (sin phi2) phi2 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi1) (cos phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 R)

rewrite514.0ms (1.5%)

Memory

-52.0MiB live, 244.1MiB allocated; 644ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	441	2705
0	458	2657
1	2623	2655
0	10851	2514

Stop Event

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

Counts

123 → 198

Calls

Call 1

Inputs
(.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)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.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))))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(sin.f64 phi1)
phi1
(sin.f64 phi2)
phi2
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(cos.f64 phi1)
(cos.f64 phi2)
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
R
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx R #s(hole binary64 R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))

Outputs
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 R (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 2 binary64)) (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(-.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (neg.f64 (sin.f64 phi1)) (sin.f64 phi2)))
(-.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (neg.f64 (*.f64 (cos.f64 phi2) (cos.f64 phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))) (/.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(*.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 phi2 phi1)) (cos.f64 (+.f64 phi2 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 phi1 phi2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 phi1 phi2)) #s(literal 2 binary64)))
(sin.f64 phi1)
phi1
(sin.f64 phi2)
phi2
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(*.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 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 phi1))) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 phi2))) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #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 phi2 (neg.f64 phi1))) (cos.f64 (-.f64 phi2 (neg.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) phi2)) (cos.f64 (-.f64 (neg.f64 phi1) phi2))) #s(literal 2 binary64))
(/.f64 (+.f64 (cos.f64 (+.f64 phi1 (neg.f64 phi2))) (cos.f64 (-.f64 phi1 (neg.f64 phi2)))) #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 phi1 phi2)) #s(literal 2 binary64)) (/.f64 (cos.f64 (-.f64 phi1 phi2)) #s(literal 2 binary64)))
(fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.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))) (fma.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))))))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))) (neg.f64 (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 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))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(-.f64 (/.f64 (.f64 lambda1 lambda1) (+.f64 lambda1 lambda2)) (/.f64 (.f64 lambda2 lambda2) (+.f64 lambda1 lambda2)))
(-.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))))
(-.f64 lambda1 lambda2)
lambda1
lambda2
R
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx R R)
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (neg.f64 lambda1) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) lambda1 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) lambda1 (neg.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) lambda1 (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (neg.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) lambda1 (.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))) lambda1 (neg.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) lambda1 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx lambda1 lambda1)
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (- lambda1 lambda2) lambda1)
#s(approx (- lambda1 lambda2) (*.f64 (-.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)) lambda1))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (fma.f64 #s(literal -1 binary64) lambda1 lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (.f64 lambda2 (cos.f64 phi1)) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (cos.f64 phi2) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 phi1)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (cos.f64 phi1))) lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 lambda1) lambda2) #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (*.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))
#s(approx (- lambda1 lambda2) (fma.f64 #s(literal -1 binary64) lambda2 lambda1))
#s(approx lambda2 lambda2)
#s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda2 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (fma.f64 #s(literal -1 binary64) lambda2 lambda1)))
#s(approx (- lambda1 lambda2) (*.f64 (neg.f64 lambda2) (-.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)) phi1 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi1) (sin.f64 phi2) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2)) phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) phi1))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64)) (sin.f64 phi2) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (sin.f64 phi2))) (*.f64 phi1 phi1) (sin.f64 phi2)) phi1))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1)) (sin.f64 phi2) (.f64 #s(literal 1/120 binary64) (sin.f64 phi2))) (.f64 phi1 phi1) (.f64 #s(literal -1/6 binary64) (sin.f64 phi2))) (*.f64 phi1 phi1) (sin.f64 phi2)) phi1))
#s(approx (sin phi1) phi1)
#s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx phi1 phi1)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos phi1) (cos phi2)) (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) (cos.f64 phi2) (cos.f64 phi2)))
#s(approx (* (cos phi1) (cos phi2)) (fma.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 phi1 phi1) (cos.f64 phi2)))
#s(approx (* (cos phi1) (cos phi2)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (cos.f64 phi2) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))) (.f64 phi1 phi1) (cos.f64 phi2)))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))
#s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 phi1)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (sin.f64 phi1)) phi2 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) (sin.f64 phi1) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))) phi2 (sin.f64 phi1)) phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi1) phi2))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64)) (sin.f64 phi1) (sin.f64 phi1)) phi2))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (sin.f64 phi1))) (*.f64 phi2 phi2) (sin.f64 phi1)) phi2))
#s(approx (* (sin phi1) (sin phi2)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64)) (sin.f64 phi1) (.f64 #s(literal 1/120 binary64) (sin.f64 phi1))) (.f64 phi2 phi2) (.f64 #s(literal -1/6 binary64) (sin.f64 phi1))) (*.f64 phi2 phi2) (sin.f64 phi1)) phi2))
#s(approx (sin phi2) phi2)
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
#s(approx phi2 phi2)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 phi2))) (.f64 phi2 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1))
#s(approx (* (cos phi1) (cos phi2)) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (cos.f64 phi1) (cos.f64 phi1)))
#s(approx (* (cos phi1) (cos phi2)) (fma.f64 (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 phi2 phi2) (cos.f64 phi1)))
#s(approx (* (cos phi1) (cos phi2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64)) (cos.f64 phi1) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1))) (.f64 phi2 phi2) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))) (.f64 phi2 phi2) (cos.f64 phi1)))
#s(approx (cos phi2) #s(literal 1 binary64))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))
#s(approx (sin phi2) (sin.f64 phi2))
#s(approx (cos phi2) (cos.f64 phi2))

eval29.0ms (0.1%)

Memory: -1.0MiB live, 44.8MiB allocated; 4ms collecting garbage
Compiler: Compiled 6 447 to 1 231 computations (80.9% saved)

prune27.0ms (0.1%)

Memory

-6.7MiB live, 39.9MiB allocated; 2ms collecting garbage

Pruning

42 alts after pruning (42 fresh and 0 done)

	Pruned	Kept	Total
New	160	42	202
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	161	42	203

Accuracy

96.0%

Counts

203 → 42

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	76.4%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	76.5%	(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
▶	76.5%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
▶	76.4%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	76.4%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
▶	27.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	27.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	40.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	39.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	76.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	45.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 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	46.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	76.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
▶	95.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	95.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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.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))))))))) R)
▶	95.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	36.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
▶	36.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
▶	46.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))) R)
▶	66.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 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
▶	45.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)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
▶	47.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)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
▶	55.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)) (cos.f64 lambda2))))) R)
▶	36.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	35.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	35.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	37.8%	(.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)
▶	43.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	55.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
▶	36.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	36.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	38.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	43.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	28.4%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	28.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	39.0%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	55.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	29.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
▶	37.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
▶	55.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	37.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
▶	44.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)

Compiler

Compiled 1 247 to 955 computations (23.4% saved)

series960.0ms (2.9%)

Memory

26.7MiB live, 1 040.9MiB allocated; 188ms collecting garbage

Counts

328 → 1 831

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 phi1)
phi1
R
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(cos.f64 phi2)
phi2
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(cos.f64 lambda1)
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(sin.f64 phi2)
(sin.f64 phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))
(*.f64 (sin.f64 phi1) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
(*.f64 (sin.f64 phi2) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi2))
(cos.f64 lambda2)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))
#s(approx (sin phi1) phi1)
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1))
#s(literal 1/120 binary64)
(*.f64 phi1 phi1)
#s(literal 1/6 binary64)
#s(literal 1 binary64)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (*.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (*.f64 phi1 phi1))
(fma.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2))
#s(approx (sin phi2) phi2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64))
(*.f64 phi2 phi2)
#s(literal -1/6 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2)) #s(literal 1/6 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1))
(.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)
(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)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
#s(literal -1/2 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(.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 lambda2))))) R)
(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 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.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)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(sin.f64 lambda1)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
(fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))
(-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2)))
(.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))
(*.f64 (cos.f64 lambda2) lambda1)
(neg.f64 (sin.f64 lambda2))
(sin.f64 lambda2)
(.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 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(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 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))
(cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 lambda1 lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))
(*.f64 lambda1 lambda1)
(*.f64 lambda2 lambda2)
(+.f64 lambda1 lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (-.f64 lambda1 lambda2))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.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 (cos.f64 lambda1) (cos.f64 lambda2))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(.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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.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))))))))) R)
(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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.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 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.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 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.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 (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)))
(pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))
(fma.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 (.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 (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 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (-.f64 lambda1 lambda2))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.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 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(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 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 phi2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2))
(sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 phi1)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)))
(sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)))
(sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))
(.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))

Outputs
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx R #s(hole binary64 R))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) #s(hole binary64 (* R (acos (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (cos lambda1) #s(hole binary64 1))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/24 (pow lambda1 2)) 1/2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/24 (* -1/720 (pow lambda1 2)))) 1/2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (sin lambda1) #s(hole binary64 lambda1))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* 1/120 (pow lambda1 2)) 1/6))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/120 (* -1/5040 (pow lambda1 2)))) 1/6))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (sin lambda2)))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))
#s(approx (* (* (cos lambda2) lambda1) -1/2) #s(hole binary64 (* -1/2 (* lambda1 (cos lambda2)))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* -1 (* lambda1 (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (* -1 lambda2))) (* 1/6 (* lambda1 (sin (* -1 lambda2)))))) (sin (* -1 lambda2)))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* -1 (pow lambda2 2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (- (pow lambda1 2) (pow lambda2 2))))
#s(approx (* lambda1 lambda1) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda2))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (+ lambda1 lambda2)))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 lambda2))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (+ lambda2 (* -1 lambda1))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow lambda1 2) (cos lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow lambda1 2) (cos lambda2))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) #s(hole binary64 (acos (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 3))) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 3))) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (cos lambda2)))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (+ (* -3/2 (cos lambda2)) (* lambda1 (- (/ (pow (sin lambda2) 3) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (cos lambda2))) (+ (* -1 (/ (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))) (cos lambda2))) (/ (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (pow (cos lambda2) 2))))))) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (pow (sin lambda2) 3)))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (+ (* 7/8 (* lambda1 (pow (cos lambda2) 3))) (pow (sin lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* 7/8 (* (pow lambda1 2) (pow (cos lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* (pow lambda1 2) (+ (* -61/240 (* (pow lambda1 2) (pow (cos lambda2) 3))) (* 7/8 (pow (cos lambda2) 3)))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (pow (sin lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (* (pow lambda1 2) (pow (sin lambda2) 3))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* 13/120 (* (pow lambda1 2) (pow (sin lambda2) 3))))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* (pow lambda1 2) (+ (* -41/3024 (* (pow lambda1 2) (pow (sin lambda2) 3))) (* 13/120 (pow (sin lambda2) 3)))))) (pow (sin lambda2) 3)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* lambda1 (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (pow (sin lambda2) 2)) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* lambda1 (- (* -1/3 (* lambda1 (pow (sin lambda2) 2))) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (pow (sin lambda2) 2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/3 (* (pow lambda1 2) (pow (sin lambda2) 2))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 2/45 (* (pow lambda1 2) (pow (sin lambda2) 2))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* (pow lambda1 2) (+ (* -1/315 (* (pow lambda1 2) (pow (sin lambda2) 2))) (* 2/45 (pow (sin lambda2) 2)))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (* 1/12 (* (cos lambda2) (sin lambda2)))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (+ (* 1/12 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/144 (* (cos lambda2) (sin lambda2))) (+ (* -1/240 (* (cos lambda2) (sin lambda2))) (+ (* -1/720 (* (cos lambda2) (sin lambda2))) (* -1/5040 (* (cos lambda2) (sin lambda2))))))))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))) (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (+ (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (+ (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (- (+ (* lambda1 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* lambda1 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2)))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (cos lambda1) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (sin lambda1) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1))))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (* -1/2 (* lambda1 (cos lambda2)))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 lambda1))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 lambda1))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (pow lambda1 2)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (pow (cos lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (- (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (sin lambda2) lambda1)) (* 1/2 (cos lambda2)))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ lambda2 lambda1)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (cos lambda2) #s(hole binary64 1))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* lambda2 (+ (* -1/6 lambda2) (* 1/4 lambda1))))))))
#s(approx (* (* (cos lambda2) lambda1) -1/2) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* (* (cos lambda2) lambda1) -1/2) #s(hole binary64 (+ (* -1/2 lambda1) (* 1/4 (* lambda1 (pow lambda2 2))))))
#s(approx (* (* (cos lambda2) lambda1) -1/2) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/48 (* lambda1 (pow lambda2 2))) (* 1/4 lambda1))))))
#s(approx (* (* (cos lambda2) lambda1) -1/2) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* 1/4 lambda1) (* (pow lambda2 2) (+ (* -1/48 lambda1) (* 1/1440 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 lambda1))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (sin lambda2) #s(hole binary64 lambda2))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* -1/6 (pow lambda2 2))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* 1/120 (pow lambda2 2)) 1/6))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/120 (* -1/5040 (pow lambda2 2)))) 1/6))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (+ (* -1 (pow lambda2 2)) (pow lambda1 2))))
#s(approx (* lambda2 lambda2) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (- lambda2 lambda1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow lambda2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow lambda2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 3))) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 3))) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (cos lambda1)))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (+ (* -3/2 (cos lambda1)) (* lambda2 (- (/ (pow (sin lambda1) 3) (pow (cos lambda1) 2)) (+ (* -1 (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (cos lambda1))) (/ (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (pow (cos lambda1) 2))))))) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (pow (sin lambda1) 3)))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (+ (* 7/8 (* lambda2 (pow (cos lambda1) 3))) (pow (sin lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* 7/8 (* (pow lambda2 2) (pow (cos lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* (pow lambda2 2) (+ (* -61/240 (* (pow lambda2 2) (pow (cos lambda1) 3))) (* 7/8 (pow (cos lambda1) 3)))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (pow (sin lambda1) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* -1/2 (* (pow lambda2 2) (pow (sin lambda1) 3))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* 13/120 (* (pow lambda2 2) (pow (sin lambda1) 3))))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* (pow lambda2 2) (+ (* -41/3024 (* (pow lambda2 2) (pow (sin lambda1) 3))) (* 13/120 (pow (sin lambda1) 3)))))) (pow (sin lambda1) 3)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* lambda2 (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (pow (sin lambda1) 2)) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* lambda2 (- (* -1/3 (* lambda2 (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (pow (sin lambda1) 2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/3 (* (pow lambda2 2) (pow (sin lambda1) 2))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 2/45 (* (pow lambda2 2) (pow (sin lambda1) 2))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* (pow lambda2 2) (+ (* -1/315 (* (pow lambda2 2) (pow (sin lambda1) 2))) (* 2/45 (pow (sin lambda1) 2)))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (* (cos lambda1) (sin lambda1)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* lambda2 (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos lambda1) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (* 1/2 (PI)))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))) (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))) (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (+ (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (+ (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (- (+ (* lambda2 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda2 2) (- (/ (pow lambda1 2) (pow lambda2 2)) 1))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda2 (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ lambda1 lambda2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 phi2)))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 (+ phi2 (* -1/6 (* (pow phi1 2) phi2))))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* 1/120 (* (pow phi1 2) phi2))))))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) phi2)) (* 1/120 phi2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda2) (cos phi2)))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 phi1))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6)))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi1 2)) 1/6)))
#s(approx (* 1/120 (* phi1 phi1)) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 phi1))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6)))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi1 2)) 1/6)))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6)))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2))))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow phi1 2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos lambda2) (cos phi2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* 1/24 (* (pow phi1 2) (* (cos lambda2) (cos phi2)))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos lambda2) (cos phi2)))) (* 1/24 (* (cos lambda2) (cos phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* 1/24 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (/ (* phi1 (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* -1/6 (* phi1 (sin phi2))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi1 2) (+ (* -1/720 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/24 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/24 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1/2 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/24 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/24 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* -1/2 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* 1/24 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (sin (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/24 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/24 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin phi2)) (* (pow phi1 2) (+ (* -1/2 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* 1/24 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin phi2)) (* (pow phi1 2) (+ (* -1/2 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/24 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* -1/6 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* -1/6 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (* (cos phi2) (cos (* 1/2 (PI))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/6 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/6 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi1 (cos (* 1/2 (PI))))))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (neg phi1) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (neg phi1) (/ (PI) 2)) #s(hole binary64 (+ (* -1 phi1) (* 1/2 (PI)))))
#s(approx (neg phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2))))))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))) (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2)))))) (* 1/2 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi2)) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi2)) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi2)) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2)))))))))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* phi1 (cos (- (* 1/2 (PI)) phi2))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* phi1 (+ (cos (- (* 1/2 (PI)) phi2)) (* -1/2 (* phi1 (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* phi1 (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* -1/6 (* phi1 (cos (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (- (* 1/2 (PI)) phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (- (+ phi1 (* 1/2 (PI))) phi2)))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* 1/2 (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))) (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* 2 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* phi1 (- (/ (pow (sin phi2) 3) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* -1 (/ (* (sin phi2) (- (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (* (sin phi2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi1 (pow (sin phi2) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi1 (+ (* 7/8 (* phi1 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (pow (sin phi2) 3))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 7/8 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 7/8 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (sin phi2) 3)) (* 13/120 (* (pow phi1 2) (pow (sin phi2) 3))))) (pow (sin phi2) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (sin phi2) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (sin phi2) 3))) (* 13/120 (pow (sin phi2) 3)))))) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (pow (sin phi2) 2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* phi1 (- (* -1/3 (* phi1 (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* 2/45 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (sin phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))) (pow (sin phi2) 2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/240 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/720 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/5040 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))))))))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (+ (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (* -2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (sin phi2) 2))))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* 1/120 (pow phi1 5))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 5) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 5) (- (+ 1/120 (/ 1 (pow phi1 4))) (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* 1/120 (pow phi1 4))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 4) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 4) (- (+ 1/120 (/ 1 (pow phi1 4))) (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 2) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1/5040 (pow phi1 7))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 7) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 7) (- (* 1/120 (/ 1 (pow phi1 2))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 7) (- (+ (* 1/120 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* -1/5040 (pow phi1 6))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (* 1/120 (/ 1 (pow phi1 2))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (+ (* 1/120 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (* -1/5040 (pow phi1 4))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 4) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 4) (- (* 1/120 (/ 1 (pow phi1 2))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* -1/5040 (pow phi1 4))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 4) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 (* -1/5040 (pow phi1 2))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 (* (pow phi1 2) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 phi1))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (+ (neg phi1) (/ (PI) 2)) #s(hole binary64 (* -1 phi1)))
#s(approx (+ (neg phi1) (/ (PI) 2)) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) 1))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) phi2))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi1))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi1 (- (+ 1 (* 1/2 (/ (PI) phi1))) (/ phi2 phi1)))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi1))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (sin phi2) 2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 5) (- (* 1/6 (/ 1 (pow phi1 2))) 1/120)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 5) (- (* 1/6 (/ 1 (pow phi1 2))) (+ 1/120 (/ 1 (pow phi1 4))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 7) (- 1/5040 (* 1/120 (/ 1 (pow phi1 2))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 7) (- (+ 1/5040 (/ 1/6 (pow phi1 4))) (* 1/120 (/ 1 (pow phi1 2))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 7) (- (+ 1/5040 (/ 1/6 (pow phi1 4))) (+ (* 1/120 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (+ (neg phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1/2 (/ (PI) phi1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (- (* 1/2 (PI)) phi2) phi1)) 1)))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi1 phi2)))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* -1/6 (* phi1 (pow phi2 2)))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* 1/120 (* phi1 (pow phi2 2)))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* (pow phi2 2) (+ (* -1/5040 (* phi1 (pow phi2 2))) (* 1/120 phi1)))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda2) (cos phi1)))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow phi2 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (* (* phi2 phi2) 1/120) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6)))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6)))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow phi2 2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda2) (cos phi1)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda2) (cos phi1)))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda2) (cos phi1)))) (* 1/24 (* (cos lambda2) (cos phi1))))))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 1/24))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (+ 1/24 (* -1/720 (pow phi2 2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* 1/24 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (/ (* phi2 (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* -1/6 (* phi2 (sin phi1))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/24 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (cos (* 1/2 (PI))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/6 (* phi2 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (cos (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (cos (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx (neg phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (cos (* 1/2 (PI))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/2 (* (pow phi2 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/24 (* (pow phi2 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (* 1/2 (PI))))) (* 1/24 (sin (* 1/2 (PI)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1/2 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/24 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/24 (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* -1/2 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* 1/24 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI))))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* 2 (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (* 2 (sin (+ phi1 (* 1/2 (PI))))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (* 2 (sin (+ phi1 (* 1/2 (PI))))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi1 (* 1/2 (PI))))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (* 2 (sin (+ phi1 (* 1/2 (PI))))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi1 (* 1/2 (PI))))) (* phi2 (+ (* -1 (sin (+ phi1 (* 1/2 (PI))))) (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1 (cos (+ phi1 (* 1/2 (PI))))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1 (cos (+ phi1 (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))) (* 1/2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (cos (- (* 1/2 (PI)) phi1))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1/2 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* -1/6 (* phi2 (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* phi2 (- (/ (pow (sin phi1) 3) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* -1 (/ (* (sin phi1) (- (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))) (cos (- lambda1 lambda2)))) (/ (* (sin phi1) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi2 (pow (sin phi1) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi2 (+ (* 7/8 (* phi2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (pow (sin phi1) 3))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 7/8 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi2 2) (+ (* -61/240 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 7/8 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (pow (sin phi1) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* -1/2 (* (pow phi2 2) (pow (sin phi1) 3))) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (sin phi1) 3)) (* 13/120 (* (pow phi2 2) (pow (sin phi1) 3))))) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (sin phi1) 3)) (* (pow phi2 2) (+ (* -41/3024 (* (pow phi2 2) (pow (sin phi1) 3))) (* 13/120 (pow (sin phi1) 3)))))) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1 (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* -1 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (pow (sin phi1) 2)) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (+ (* -1 (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (+ (* phi2 (- (* -1/3 (* phi2 (pow (sin phi1) 2))) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (pow (sin phi1) 2))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (sin phi1) 2))) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (sin phi1) 2))) (* 2/45 (pow (sin phi1) 2)))))) (pow (sin phi1) 2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/240 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/720 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/5040 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (+ (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (* -2/45 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (sin phi1) 2))))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* phi2 (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (- (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))) (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1/6 (pow phi2 3))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* (pow phi2 3) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* 1/120 (pow phi2 5))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 5) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 5) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* 1/120 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (* (pow phi2 2) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1/5040 (pow phi2 7))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* -1/5040 (pow phi2 6))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* -1/5040 (pow phi2 4))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* -1/5040 (pow phi2 4))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (* -1/5040 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (* (pow phi2 2) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (* -1/720 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (* (pow phi2 2) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi2 (- (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2)) 1))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi2))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 3) (- 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) 1/120)))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) (+ 1/120 (/ 1 (pow phi2 4))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- 1/5040 (* 1/120 (/ 1 (pow phi2 2))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- (+ 1/5040 (/ 1/6 (pow phi2 4))) (* 1/120 (/ 1 (pow phi2 2))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- (+ 1/5040 (/ 1/6 (pow phi2 4))) (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))

Calls

15 calls:

Time	Variable		Point	Expression
116.0ms	phi2	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (cos phi1) phi1 R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi2) phi2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos lambda1) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (sin phi2) (sin phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (sin phi2) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 1 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) -1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/2) (* (cos lambda2) lambda1) (neg (sin lambda2)) (sin lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (/ (PI) 2) (PI) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) 3 (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2)) (cos (/ (PI) 2)) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin (+ (neg phi1) (/ (PI) 2))) (+ (neg phi1) (/ (PI) 2)) (neg phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (sin (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))
106.0ms	phi1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (cos phi1) phi1 R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi2) phi2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos lambda1) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (sin phi2) (sin phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (sin phi2) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 1 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) -1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/2) (* (cos lambda2) lambda1) (neg (sin lambda2)) (sin lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (/ (PI) 2) (PI) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) 3 (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2)) (cos (/ (PI) 2)) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin (+ (neg phi1) (/ (PI) 2))) (+ (neg phi1) (/ (PI) 2)) (neg phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (sin (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))
77.0ms	lambda2	@	0	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (cos phi1) phi1 R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi2) phi2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos lambda1) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (sin phi2) (sin phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (sin phi2) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 1 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) -1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/2) (* (cos lambda2) lambda1) (neg (sin lambda2)) (sin lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (/ (PI) 2) (PI) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) 3 (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2)) (cos (/ (PI) 2)) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin (+ (neg phi1) (/ (PI) 2))) (+ (neg phi1) (/ (PI) 2)) (neg phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (sin (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))
63.0ms	lambda1	@	inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (cos phi1) phi1 R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi2) phi2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos lambda1) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (sin phi2) (sin phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (sin phi2) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 1 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) -1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/2) (* (cos lambda2) lambda1) (neg (sin lambda2)) (sin lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (/ (PI) 2) (PI) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) 3 (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2)) (cos (/ (PI) 2)) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin (+ (neg phi1) (/ (PI) 2))) (+ (neg phi1) (/ (PI) 2)) (neg phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (sin (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))
63.0ms	lambda1	@	-inf	((* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (cos phi1) phi1 R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi2) phi2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos lambda1) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (sin phi2) (sin phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (sin phi2) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 1 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) -1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/2) (* (cos lambda2) lambda1) (neg (sin lambda2)) (sin lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (/ (PI) 2) (PI) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) 3 (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (sin (- lambda1 lambda2)) (cos (/ (PI) 2)) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin (+ (neg phi1) (/ (PI) 2))) (+ (neg phi1) (/ (PI) 2)) (neg phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (sin (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))

rewrite677.0ms (2%)

Memory

42.0MiB live, 884.1MiB allocated; 150ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	7096	97530
0	7799	96138
0	8125	93196

Stop Event

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

Counts

2 159 → 2 263

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 phi1)
phi1
R
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(cos.f64 phi2)
phi2
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(cos.f64 lambda1)
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(sin.f64 phi2)
(sin.f64 phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))
(*.f64 (sin.f64 phi1) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
(*.f64 (sin.f64 phi2) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi2))
(cos.f64 lambda2)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))
#s(approx (sin phi1) phi1)
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1))
#s(literal 1/120 binary64)
(*.f64 phi1 phi1)
#s(literal 1/6 binary64)
#s(literal 1 binary64)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (*.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (*.f64 phi1 phi1))
(fma.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2))
#s(approx (sin phi2) phi2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64))
(*.f64 phi2 phi2)
#s(literal -1/6 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2)) #s(literal 1/6 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1))
(.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)
(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)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
#s(literal -1/2 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(.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 lambda2))))) R)
(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 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.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)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(sin.f64 lambda1)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
(fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))
(-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2)))
(.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))
(*.f64 (cos.f64 lambda2) lambda1)
(neg.f64 (sin.f64 lambda2))
(sin.f64 lambda2)
(.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 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(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 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))
(cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 lambda1 lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))
(*.f64 lambda1 lambda1)
(*.f64 lambda2 lambda2)
(+.f64 lambda1 lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (-.f64 lambda1 lambda2))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.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 (cos.f64 lambda1) (cos.f64 lambda2))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(.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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.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))))))))) R)
(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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.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 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.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 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.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 (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)))
(pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))
(fma.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 (.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 (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 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (-.f64 lambda1 lambda2))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.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 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(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 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 phi2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2))
(sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 phi1)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)))
(sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)))
(sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))
(.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx R #s(hole binary64 R))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) #s(hole binary64 (* R (acos (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (cos lambda1) #s(hole binary64 1))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/24 (pow lambda1 2)) 1/2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/24 (* -1/720 (pow lambda1 2)))) 1/2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (sin lambda1) #s(hole binary64 lambda1))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* 1/120 (pow lambda1 2)) 1/6))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/120 (* -1/5040 (pow lambda1 2)))) 1/6))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (sin lambda2)))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))
#s(approx (* (* (cos lambda2) lambda1) -1/2) #s(hole binary64 (* -1/2 (* lambda1 (cos lambda2)))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* -1 (* lambda1 (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (* -1 lambda2))) (* 1/6 (* lambda1 (sin (* -1 lambda2)))))) (sin (* -1 lambda2)))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* -1 (pow lambda2 2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (- (pow lambda1 2) (pow lambda2 2))))
#s(approx (* lambda1 lambda1) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda2))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (+ lambda1 lambda2)))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 lambda2))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (+ lambda2 (* -1 lambda1))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow lambda1 2) (cos lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow lambda1 2) (cos lambda2))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) #s(hole binary64 (acos (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 3))) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 3))) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (cos lambda2)))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (+ (* -3/2 (cos lambda2)) (* lambda1 (- (/ (pow (sin lambda2) 3) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (cos lambda2))) (+ (* -1 (/ (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))) (cos lambda2))) (/ (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (pow (cos lambda2) 2))))))) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (pow (sin lambda2) 3)))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (+ (* 7/8 (* lambda1 (pow (cos lambda2) 3))) (pow (sin lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* 7/8 (* (pow lambda1 2) (pow (cos lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* (pow lambda1 2) (+ (* -61/240 (* (pow lambda1 2) (pow (cos lambda2) 3))) (* 7/8 (pow (cos lambda2) 3)))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (pow (sin lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (* (pow lambda1 2) (pow (sin lambda2) 3))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* 13/120 (* (pow lambda1 2) (pow (sin lambda2) 3))))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* (pow lambda1 2) (+ (* -41/3024 (* (pow lambda1 2) (pow (sin lambda2) 3))) (* 13/120 (pow (sin lambda2) 3)))))) (pow (sin lambda2) 3)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* lambda1 (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (pow (sin lambda2) 2)) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* lambda1 (- (* -1/3 (* lambda1 (pow (sin lambda2) 2))) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (pow (sin lambda2) 2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/3 (* (pow lambda1 2) (pow (sin lambda2) 2))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 2/45 (* (pow lambda1 2) (pow (sin lambda2) 2))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* (pow lambda1 2) (+ (* -1/315 (* (pow lambda1 2) (pow (sin lambda2) 2))) (* 2/45 (pow (sin lambda2) 2)))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (* 1/12 (* (cos lambda2) (sin lambda2)))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (+ (* 1/12 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/144 (* (cos lambda2) (sin lambda2))) (+ (* -1/240 (* (cos lambda2) (sin lambda2))) (+ (* -1/720 (* (cos lambda2) (sin lambda2))) (* -1/5040 (* (cos lambda2) (sin lambda2))))))))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))) (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (+ (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (+ (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (- (+ (* lambda1 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* lambda1 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2)))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (cos lambda1) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (sin lambda1) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1))))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (* -1/2 (* lambda1 (cos lambda2)))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 lambda1))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 lambda1))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (pow lambda1 2)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (pow (cos lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (- (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (sin lambda2) lambda1)) (* 1/2 (cos lambda2)))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ lambda2 lambda1)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (cos lambda2) #s(hole binary64 1))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* lambda2 (+ (* -1/6 lambda2) (* 1/4 lambda1))))))))
#s(approx (* (* (cos lambda2) lambda1) -1/2) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* (* (cos lambda2) lambda1) -1/2) #s(hole binary64 (+ (* -1/2 lambda1) (* 1/4 (* lambda1 (pow lambda2 2))))))
#s(approx (* (* (cos lambda2) lambda1) -1/2) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/48 (* lambda1 (pow lambda2 2))) (* 1/4 lambda1))))))
#s(approx (* (* (cos lambda2) lambda1) -1/2) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* 1/4 lambda1) (* (pow lambda2 2) (+ (* -1/48 lambda1) (* 1/1440 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 lambda1))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (sin lambda2) #s(hole binary64 lambda2))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* -1/6 (pow lambda2 2))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* 1/120 (pow lambda2 2)) 1/6))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/120 (* -1/5040 (pow lambda2 2)))) 1/6))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (+ (* -1 (pow lambda2 2)) (pow lambda1 2))))
#s(approx (* lambda2 lambda2) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (- lambda2 lambda1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow lambda2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow lambda2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 3))) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 3))) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (cos lambda1)))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (+ (* -3/2 (cos lambda1)) (* lambda2 (- (/ (pow (sin lambda1) 3) (pow (cos lambda1) 2)) (+ (* -1 (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (cos lambda1))) (/ (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (pow (cos lambda1) 2))))))) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (pow (sin lambda1) 3)))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (+ (* 7/8 (* lambda2 (pow (cos lambda1) 3))) (pow (sin lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* 7/8 (* (pow lambda2 2) (pow (cos lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* (pow lambda2 2) (+ (* -61/240 (* (pow lambda2 2) (pow (cos lambda1) 3))) (* 7/8 (pow (cos lambda1) 3)))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (pow (sin lambda1) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* -1/2 (* (pow lambda2 2) (pow (sin lambda1) 3))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* 13/120 (* (pow lambda2 2) (pow (sin lambda1) 3))))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* (pow lambda2 2) (+ (* -41/3024 (* (pow lambda2 2) (pow (sin lambda1) 3))) (* 13/120 (pow (sin lambda1) 3)))))) (pow (sin lambda1) 3)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* lambda2 (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (pow (sin lambda1) 2)) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* lambda2 (- (* -1/3 (* lambda2 (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (pow (sin lambda1) 2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/3 (* (pow lambda2 2) (pow (sin lambda1) 2))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 2/45 (* (pow lambda2 2) (pow (sin lambda1) 2))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* (pow lambda2 2) (+ (* -1/315 (* (pow lambda2 2) (pow (sin lambda1) 2))) (* 2/45 (pow (sin lambda1) 2)))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (* (cos lambda1) (sin lambda1)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* lambda2 (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos lambda1) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (* 1/2 (PI)))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))) (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))) (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (+ (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (+ (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (- (+ (* lambda2 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda2 2) (- (/ (pow lambda1 2) (pow lambda2 2)) 1))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda2 (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ lambda1 lambda2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 phi2)))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 (+ phi2 (* -1/6 (* (pow phi1 2) phi2))))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* 1/120 (* (pow phi1 2) phi2))))))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) phi2)) (* 1/120 phi2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda2) (cos phi2)))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 phi1))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6)))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi1 2)) 1/6)))
#s(approx (* 1/120 (* phi1 phi1)) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 phi1))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6)))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi1 2)) 1/6)))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6)))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2))))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow phi1 2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos lambda2) (cos phi2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* 1/24 (* (pow phi1 2) (* (cos lambda2) (cos phi2)))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos lambda2) (cos phi2)))) (* 1/24 (* (cos lambda2) (cos phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* 1/24 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (/ (* phi1 (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* -1/6 (* phi1 (sin phi2))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi1 2) (+ (* -1/720 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/24 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/24 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1/2 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/24 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/24 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* -1/2 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* 1/24 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (sin (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/24 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/24 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin phi2)) (* (pow phi1 2) (+ (* -1/2 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* 1/24 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin phi2)) (* (pow phi1 2) (+ (* -1/2 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/24 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* -1/6 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* -1/6 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (* (cos phi2) (cos (* 1/2 (PI))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/6 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/6 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi1 (cos (* 1/2 (PI))))))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (neg phi1) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (neg phi1) (/ (PI) 2)) #s(hole binary64 (+ (* -1 phi1) (* 1/2 (PI)))))
#s(approx (neg phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2))))))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))) (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2)))))) (* 1/2 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi2)) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi2)) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi2)) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2)))))))))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* phi1 (cos (- (* 1/2 (PI)) phi2))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* phi1 (+ (cos (- (* 1/2 (PI)) phi2)) (* -1/2 (* phi1 (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* phi1 (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* -1/6 (* phi1 (cos (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (- (* 1/2 (PI)) phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (- (+ phi1 (* 1/2 (PI))) phi2)))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* 1/2 (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))) (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* 2 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* phi1 (- (/ (pow (sin phi2) 3) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* -1 (/ (* (sin phi2) (- (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (* (sin phi2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi1 (pow (sin phi2) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi1 (+ (* 7/8 (* phi1 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (pow (sin phi2) 3))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 7/8 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 7/8 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (sin phi2) 3)) (* 13/120 (* (pow phi1 2) (pow (sin phi2) 3))))) (pow (sin phi2) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (sin phi2) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (sin phi2) 3))) (* 13/120 (pow (sin phi2) 3)))))) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (pow (sin phi2) 2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* phi1 (- (* -1/3 (* phi1 (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* 2/45 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (sin phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))) (pow (sin phi2) 2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/240 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/720 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/5040 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))))))))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (+ (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (* -2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (sin phi2) 2))))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* 1/120 (pow phi1 5))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 5) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 5) (- (+ 1/120 (/ 1 (pow phi1 4))) (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* 1/120 (pow phi1 4))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 4) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 4) (- (+ 1/120 (/ 1 (pow phi1 4))) (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 2) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1/5040 (pow phi1 7))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 7) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 7) (- (* 1/120 (/ 1 (pow phi1 2))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 7) (- (+ (* 1/120 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* -1/5040 (pow phi1 6))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (* 1/120 (/ 1 (pow phi1 2))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (+ (* 1/120 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (* -1/5040 (pow phi1 4))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 4) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 4) (- (* 1/120 (/ 1 (pow phi1 2))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* -1/5040 (pow phi1 4))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 4) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 (* -1/5040 (pow phi1 2))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 (* (pow phi1 2) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 phi1))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (+ (neg phi1) (/ (PI) 2)) #s(hole binary64 (* -1 phi1)))
#s(approx (+ (neg phi1) (/ (PI) 2)) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) 1))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) phi2))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi1))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi1 (- (+ 1 (* 1/2 (/ (PI) phi1))) (/ phi2 phi1)))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi1))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (sin phi2) 2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 5) (- (* 1/6 (/ 1 (pow phi1 2))) 1/120)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 5) (- (* 1/6 (/ 1 (pow phi1 2))) (+ 1/120 (/ 1 (pow phi1 4))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 7) (- 1/5040 (* 1/120 (/ 1 (pow phi1 2))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 7) (- (+ 1/5040 (/ 1/6 (pow phi1 4))) (* 1/120 (/ 1 (pow phi1 2))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 7) (- (+ 1/5040 (/ 1/6 (pow phi1 4))) (+ (* 1/120 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (+ (neg phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1/2 (/ (PI) phi1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (- (* 1/2 (PI)) phi2) phi1)) 1)))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi1 phi2)))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* -1/6 (* phi1 (pow phi2 2)))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* 1/120 (* phi1 (pow phi2 2)))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* (pow phi2 2) (+ (* -1/5040 (* phi1 (pow phi2 2))) (* 1/120 phi1)))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda2) (cos phi1)))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow phi2 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (* (* phi2 phi2) 1/120) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6)))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6)))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow phi2 2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda2) (cos phi1)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda2) (cos phi1)))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda2) (cos phi1)))) (* 1/24 (* (cos lambda2) (cos phi1))))))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 1/24))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (+ 1/24 (* -1/720 (pow phi2 2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* 1/24 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (/ (* phi2 (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* -1/6 (* phi2 (sin phi1))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/24 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (cos (* 1/2 (PI))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/6 (* phi2 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (cos (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (cos (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx (neg phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (cos (* 1/2 (PI))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/2 (* (pow phi2 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/24 (* (pow phi2 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (* 1/2 (PI))))) (* 1/24 (sin (* 1/2 (PI)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (* (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1/2 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/24 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/24 (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* -1/2 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* 1/24 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI))))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* 2 (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (* 2 (sin (+ phi1 (* 1/2 (PI))))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (* 2 (sin (+ phi1 (* 1/2 (PI))))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi1 (* 1/2 (PI))))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (* 2 (sin (+ phi1 (* 1/2 (PI))))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi1 (* 1/2 (PI))))) (* phi2 (+ (* -1 (sin (+ phi1 (* 1/2 (PI))))) (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1 (cos (+ phi1 (* 1/2 (PI))))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1 (cos (+ phi1 (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))) (* 1/2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (cos (- (* 1/2 (PI)) phi1))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1/2 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* -1/6 (* phi2 (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* phi2 (- (/ (pow (sin phi1) 3) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* -1 (/ (* (sin phi1) (- (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))) (cos (- lambda1 lambda2)))) (/ (* (sin phi1) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi2 (pow (sin phi1) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi2 (+ (* 7/8 (* phi2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (pow (sin phi1) 3))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 7/8 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi2 2) (+ (* -61/240 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 7/8 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (pow (sin phi1) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* -1/2 (* (pow phi2 2) (pow (sin phi1) 3))) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (sin phi1) 3)) (* 13/120 (* (pow phi2 2) (pow (sin phi1) 3))))) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (sin phi1) 3)) (* (pow phi2 2) (+ (* -41/3024 (* (pow phi2 2) (pow (sin phi1) 3))) (* 13/120 (pow (sin phi1) 3)))))) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1 (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* -1 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (pow (sin phi1) 2)) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (+ (* -1 (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (+ (* phi2 (- (* -1/3 (* phi2 (pow (sin phi1) 2))) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (pow (sin phi1) 2))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (sin phi1) 2))) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (sin phi1) 2))) (* 2/45 (pow (sin phi1) 2)))))) (pow (sin phi1) 2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/240 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/720 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/5040 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (+ (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (* -2/45 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (sin phi1) 2))))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* phi2 (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (- (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))) (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1/6 (pow phi2 3))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* (pow phi2 3) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* 1/120 (pow phi2 5))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 5) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 5) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* 1/120 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (* (pow phi2 2) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1/5040 (pow phi2 7))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* -1/5040 (pow phi2 6))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* -1/5040 (pow phi2 4))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* -1/5040 (pow phi2 4))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (* -1/5040 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (* (pow phi2 2) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (* -1/720 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (* (pow phi2 2) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi2 (- (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2)) 1))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi2))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 3) (- 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) 1/120)))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) (+ 1/120 (/ 1 (pow phi2 4))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- 1/5040 (* 1/120 (/ 1 (pow phi2 2))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- (+ 1/5040 (/ 1/6 (pow phi2 4))) (* 1/120 (/ 1 (pow phi2 2))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- (+ 1/5040 (/ 1/6 (pow phi2 4))) (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))

Outputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 phi1)
phi1
R
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(cos.f64 phi2)
phi2
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(cos.f64 lambda1)
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(sin.f64 phi2)
(sin.f64 phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))
(+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) phi2))
(*.f64 (sin.f64 phi1) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
(+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))
(*.f64 (sin.f64 phi2) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi2))
(cos.f64 lambda2)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))
#s(approx (sin phi1) phi1)
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1))
#s(literal 1/120 binary64)
(*.f64 phi1 phi1)
#s(literal 1/6 binary64)
#s(literal 1 binary64)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1)) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (*.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (*.f64 phi1 phi1))
(fma.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1) #s(literal 1/120 binary64))
(+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1)) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2))
#s(approx (sin phi2) phi2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64)) #s(literal 1 binary64))
(*.f64 phi2 phi2)
#s(literal -1/6 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2)) #s(literal 1/6 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))))
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))
#s(literal -1/2 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))
(sin.f64 lambda1)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
(fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2))
(+.f64 (.f64 (-.f64 (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1) (cos.f64 lambda2))
(-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2)))
(.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64))
(*.f64 (cos.f64 lambda2) lambda1)
(neg.f64 (sin.f64 lambda2))
(sin.f64 lambda2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))))
(cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 lambda1 lambda2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))
(*.f64 lambda1 lambda1)
(*.f64 lambda2 lambda2)
(+.f64 lambda1 lambda2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (-.f64 lambda1 lambda2))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.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 (cos.f64 lambda1) (cos.f64 lambda2))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.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))))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.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))))))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.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)))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.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 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.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 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.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 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.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 (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)))
(pow.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))
(fma.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 (.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 (.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 (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 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.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 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (-.f64 lambda1 lambda2))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi1) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 phi2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2))
(sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 phi1)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (.f64 (sin.f64 (/.f64 (+.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2) (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2) (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) #s(literal 2 binary64)))))
(+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)))
(sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))))
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (.f64 (sin.f64 (/.f64 (+.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) #s(literal 2 binary64))) (cos.f64 (/.f64 (-.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) #s(literal 2 binary64)))))
(+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)))
(sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))))
(acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))
(.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))))
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx R R)
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (.f64 R (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.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)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (.f64 R (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (fma.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)))) (fma.f64 lambda1 (fma.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))))))) (fma.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)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda1 (fma.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 (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 (- 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 (fma.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 (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx lambda1 lambda1)
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.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 (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#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 (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda1 (fma.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)))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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)))))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda1 (fma.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)))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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)))))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (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))) (fma.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))) (fma.f64 lambda1 (fma.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))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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 lambda1) lambda2) (cos lambda1)) #s(literal 1 binary64))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos 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 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 (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (cos.f64 lambda2))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (sin.f64 lambda2))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)))))
#s(approx (* (* (cos lambda2) lambda1) -1/2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))))
#s(approx (* (cos lambda2) lambda1) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) 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 (/ lambda1 lambda2) (/.f64 lambda1 lambda2))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 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 (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (* lambda1 lambda1) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (+ lambda1 lambda2) lambda2)
#s(approx (+ lambda1 lambda2) (+.f64 lambda1 lambda2))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (neg (- lambda1 lambda2)) lambda2)
#s(approx (neg (- lambda1 lambda2)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (fma.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)))) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 lambda1) (sin lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (sin lambda2)) (.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 lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda1 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda1 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (cos.f64 lambda2))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (-.f64 (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))) (cos.f64 lambda2)) (/.f64 (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 lambda1 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda1 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (*.f64 #s(literal 7/8 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal 1/12 binary64) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.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 (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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))))))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.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))))))))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.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 (fma.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))))))))))) (fma.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.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 (fma.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 (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 lambda1 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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 (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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)))) (.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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)))) (.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (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)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.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))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda1 (fma.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))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda1 (fma.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))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (acos (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.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))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.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))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))))))) (fma.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)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (- lambda1 lambda2) lambda1)
#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 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (cos lambda1) (cos.f64 lambda1))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (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 lambda1) lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (sin lambda1) (sin.f64 lambda1))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (+.f64 (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) lambda1)
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1)
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ lambda1 lambda2) lambda1)
#s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
#s(approx (neg (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (neg (- lambda1 lambda2)) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (cos lambda1) (cos lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (-.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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 (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (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 (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (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)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.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 (fma.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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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 (- lambda1 lambda2)) (cos phi1)) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) 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 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (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 (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) lambda1) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda2))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#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 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (+ lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (neg (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.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)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.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 (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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 (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (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 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (.f64 R (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (.f64 R (acos.f64 (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (acos.f64 (fma.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 (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.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 (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) (.f64 R (acos.f64 (fma.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 (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) (acos.f64 (fma.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 phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.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 (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (asin.f64 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.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)))) (fma.f64 lambda2 (fma.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)))) (fma.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)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 (fma.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 (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (- 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 (fma.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 (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx lambda2 lambda2)
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.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 (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (cos lambda2) #s(literal 1 binary64))
#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 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))) (fma.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))) (fma.f64 lambda2 (fma.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))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (cos.f64 lambda1))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 lambda1 lambda2))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.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 lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.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 (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (+.f64 lambda2 (*.f64 #s(literal -1/2 binary64) lambda1)))
#s(approx (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (fma.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 (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) lambda2 (*.f64 #s(literal 1/4 binary64) lambda1)))))))
#s(approx (* (* (cos lambda2) lambda1) -1/2) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (* (* (cos lambda2) lambda1) -1/2) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* (* (cos lambda2) lambda1) -1/2) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) lambda1)))))
#s(approx (* (* (cos lambda2) lambda1) -1/2) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) lambda1 (.f64 #s(literal 1/1440 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (* (cos lambda2) lambda1) lambda1)
#s(approx (* (cos lambda2) lambda1) (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* (cos lambda2) lambda1) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* (cos lambda2) lambda1) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (neg (sin lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (neg (sin 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 (neg (sin 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 (sin 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 (- (/ lambda1 lambda2) 1) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda2))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda2 (fma.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)))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 lambda2 (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 lambda1))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.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 (- (* lambda1 lambda1) (* lambda2 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda2 lambda2) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (neg (- lambda1 lambda2)) (-.f64 lambda2 lambda1))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.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 (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.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 (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.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 (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (fma.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)))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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 lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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 lambda1) (sin lambda2)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) (.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 lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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 lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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 phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda2 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda2 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (cos.f64 lambda1))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda1)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (cos.f64 lambda1) (.f64 lambda2 (-.f64 (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda1)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)))))) (cos.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (*.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 lambda2 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda2 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (*.f64 #s(literal 7/8 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (*.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/144 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/240 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/720 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/5040 binary64) (sin.f64 lambda1))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.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) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.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) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.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 (- lambda1 lambda2)) (sin (/ (PI) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 lambda1) (sin.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 (- lambda1 lambda2)) (sin (/ (PI) 2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (sin.f64 lambda1) (sin.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 phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.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))))))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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))))))) (fma.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 lambda2 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda2 (fma.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)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda2) (cos phi2)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (cos lambda2) (cos.f64 lambda2))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (neg (sin lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (+ lambda1 lambda2) (*.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 lambda2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))) (/.f64 lambda1 lambda2))))
#s(approx (neg (- lambda1 lambda2)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 lambda1 lambda2)) #s(literal 1 binary64))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.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 (fma.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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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 (- lambda1 lambda2)) (cos phi1)) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) 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 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (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 lambda1) lambda2) (cos lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64)))))
#s(approx (neg (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.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 (+ (- lambda1 lambda2) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.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 (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.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 (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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 (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (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 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (.f64 R (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (.f64 R (acos.f64 (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (acos.f64 (fma.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 (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.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 (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) R) (.f64 R (acos.f64 (fma.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 (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1)))) (acos.f64 (fma.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 phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.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 (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (asin.f64 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (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)))) (fma.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)))) (fma.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)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.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 (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (+.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 (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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) #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 phi1 phi1)
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2))
#s(approx (* (cos phi2) (cos phi1)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (cos phi1)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 phi2) (cos phi1)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (* (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (* (sin phi2) (sin phi1)) (.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 phi2) (sin phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 phi2) (sin phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (sin 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi1 (+.f64 phi2 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi1 (+.f64 phi2 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))))))
#s(approx (* (sin phi1) phi2) (*.f64 phi1 phi2))
#s(approx (* (sin phi1) phi2) (.f64 phi1 (+.f64 phi2 (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)))))
#s(approx (* (sin phi1) phi2) (.f64 phi1 (+.f64 phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)))))))
#s(approx (* (sin phi1) phi2) (.f64 phi1 (+.f64 phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2) (*.f64 #s(literal 1/120 binary64) phi2))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin phi2) phi1) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#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)) (fma.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)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.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))) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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))) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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)) (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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) phi1)
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) 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 (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (+.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 (- (* 1/120 (* phi1 phi1)) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (* 1/120 (* phi1 phi1)) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (* phi1 phi1) (pow.f64 phi1 #s(literal 2 binary64)))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) phi1)
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) 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 (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) 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 (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (+.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 (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (+.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 (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (-.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 (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (.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(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(literal 1/120 binary64))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi1 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (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 phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 phi1 (fma.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 (fma.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 (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 phi1 (fma.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 phi1 (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 phi1 (fma.f64 phi1 (fma.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 (+ phi1 (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.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 (+ phi1 (/ (PI) 2))) (+.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 (+ phi1 (/ (PI) 2))) (+.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 (fma.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 (+ phi1 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi1 (/ (PI) 2)) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (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 phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 (fma.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 (fma.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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (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 (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 (fma.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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.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 (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.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) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (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 (+ (neg phi1) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.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 (+ (neg phi1) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ (neg phi1) (/ (PI) 2)) (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (neg phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi1 (-.f64 (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 phi1 (fma.f64 #s(literal 7/8 binary64) (.f64 phi1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (pow (* (sin phi2) (sin phi1)) 3) (*.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi1 (-.f64 (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 phi1 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi1 (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))))))))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (sin.f64 phi2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (-.f64 (.f64 phi1 (fma.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))))) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.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 phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.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 (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.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.f64 phi1))
#s(approx (* (cos phi2) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* (sin phi1) phi2) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 5 binary64))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 4 binary64))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 7 binary64))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 (pow.f64 phi1 #s(literal 7 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 (pow.f64 phi1 #s(literal 7 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (*.f64 (pow.f64 phi1 #s(literal 7 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 6 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 6 binary64))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 6 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 4 binary64))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 4 binary64))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi1 (/ (PI) 2)) phi1)
#s(approx (+ phi1 (/ (PI) 2)) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (+ (neg phi1) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (+ (neg phi1) (/ (PI) 2)) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) phi1)
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))) (/.f64 phi2 phi1))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) phi1)
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)) #s(literal 1 binary64))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.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 (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/120 binary64)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 4 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 7 binary64)) (-.f64 #s(literal 1/5040 binary64) (*.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 7 binary64)) (-.f64 (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (*.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 7 binary64)) (-.f64 (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 6 binary64))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.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 (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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 (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ (neg phi1) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (neg phi1) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) phi1)) #s(literal 1 binary64)))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.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 (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#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)))) (fma.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)))) (fma.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)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.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 (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (cos phi2) #s(literal 1 binary64))
#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 phi2 phi2)
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1))
#s(approx (* (cos phi2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos phi2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 phi2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (* (sin phi2) (sin phi1)) (.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 phi2) (sin phi1)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 phi2) (sin phi1)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (sin 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (+.f64 phi1 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))))))
#s(approx (* (sin phi2) phi1) (*.f64 phi1 phi2))
#s(approx (* (sin phi2) phi1) (.f64 phi2 (+.f64 phi1 (.f64 #s(literal -1/6 binary64) (*.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (sin phi2) phi1) (.f64 phi2 (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) phi1 (.f64 #s(literal 1/120 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))))))))
#s(approx (* (sin phi2) phi1) (.f64 phi2 (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2)))))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))
#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)) (fma.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)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.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))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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)) (cos.f64 phi1))
#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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (* (+ (* (* phi2 phi2) -1/6) 1) phi2) phi2)
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* phi2 phi2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) phi2)
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) 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 (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (+.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 (- (* (* phi2 phi2) 1/120) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (* (* phi2 phi2) 1/120) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) phi2)
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) 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 (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) 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 (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (+.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 (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (+.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 (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (-.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 (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (.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(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(literal 1/120 binary64))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.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 (- (* (* phi2 phi2) 1/24) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (* phi2 phi2) 1/24) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (+.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 (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (+.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 (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (-.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 (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (.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(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(literal 1/24 binary64))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi2 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.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 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (.f64 (cos.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))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.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))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.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))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.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))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.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))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (neg phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (.f64 (cos.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))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.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))))))
#s(approx (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.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))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (+.f64 (sin.f64 (.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 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #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 phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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 (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.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)) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.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)) (fma.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)) (fma.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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)) (fma.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 phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi2 (fma.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 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi2 (fma.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/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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)))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/2 binary64) (+.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))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.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))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (-.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 phi2 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 phi2 (fma.f64 #s(literal 7/8 binary64) (.f64 phi2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (pow (* (sin phi2) (sin phi1)) 3) (*.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi2 (-.f64 (.f64 phi2 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 phi2 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 phi2 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi2 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (-.f64 (.f64 phi2 (fma.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))))) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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 phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.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 (+ (* (* (cos phi2) (cos phi1)) (cos (- lambda1 lambda2))) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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 phi2) (cos.f64 phi2))
#s(approx (sin phi2) (sin.f64 phi2))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (*.f64 (pow.f64 phi2 #s(literal 3 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 7 binary64))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (*.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi2 (/ (PI) 2)) phi2)
#s(approx (+ phi2 (/ (PI) 2)) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 phi2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)) #s(literal 1 binary64))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) phi2)
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2))) (/.f64 phi1 phi2))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2)
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/120 binary64)))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 #s(literal 1/5040 binary64) (*.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (*.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (sin (+ (+ phi1 (/ (PI) 2)) phi2)) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1 binary64)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))

eval774.0ms (2.3%)

Memory: 56.8MiB live, 1 168.3MiB allocated; 240ms collecting garbage
Compiler: Compiled 275 364 to 24 368 computations (91.2% saved)

prune289.0ms (0.9%)

Memory

1.7MiB live, 616.1MiB allocated; 74ms collecting garbage

Pruning

103 alts after pruning (102 fresh and 1 done)

	Pruned	Kept	Total
New	5 348	102	5 450
Fresh	0	0	0
Picked	41	1	42
Done	0	0	0
Total	5 389	103	5 492

Accuracy

96.2%

Counts

5 492 → 103

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	76.5%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
▶	76.4%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))) R)
▶	95.6%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
▶	47.6%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))) R)
▶	37.7%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	44.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	43.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
▶	37.8%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	95.8%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	47.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
▶	55.4%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
▶	55.1%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	76.4%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	69.2%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
▶	34.5%	(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	40.9%	(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	20.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	95.6%	(.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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
▶	55.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	54.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	20.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
▶	20.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
▶	20.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
▶	20.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
▶	44.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) R)
▶	31.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
▶	19.5%	(.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 lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) R)
▶	24.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
▶	47.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
▶	24.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	24.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	24.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	6.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	53.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	27.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	25.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	24.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	25.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	34.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
▶	22.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	53.1%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
▶	23.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
▶	23.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
▶	22.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
▶	26.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
▶	25.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	25.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	26.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	23.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	15.4%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	25.7%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	47.6%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
▶	24.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	26.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
▶	26.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
▶	32.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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))))) R)
▶	26.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
▶	33.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	26.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
▶	37.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
▶	34.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	34.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	26.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
▶	34.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	55.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	54.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
▶	37.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
▶	95.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	38.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
▶	47.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	54.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	35.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	23.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
▶	24.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
▶	23.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
▶	24.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
▶	22.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
▶	29.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
▶	17.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
▶	22.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
▶	25.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
✓	55.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	29.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
▶	28.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
▶	29.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	30.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	33.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	31.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	30.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
▶	29.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
▶	32.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
▶	19.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
▶	25.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
▶	25.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
▶	26.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
▶	32.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
▶	15.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
▶	29.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
▶	11.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
▶	23.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	37.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
▶	12.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
▶	76.4%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)

Compiler

Compiled 4 179 to 2 997 computations (28.3% saved)

series1.8s (5.3%)

Memory

-71.2MiB live, 1 907.4MiB allocated; 1.1s collecting garbage

Counts

727 → 3 087

Calls

Call 1

Inputs
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
#s(literal 1/2 binary64)
(PI.f64)
(asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(cos.f64 phi1)
phi1
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(cos.f64 phi2)
phi2
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(sin.f64 phi1)
(sin.f64 phi2)
R
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1)))
(*.f64 phi2 (sin.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))
(.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))
(+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))
(/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2)))
(*.f64 phi1 (sin.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
(.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))
(+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))
(/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))
(*.f64 phi1 phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi1))
(cos.f64 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
(fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(cos.f64 lambda1)
(*.f64 lambda2 (sin.f64 lambda1))
(sin.f64 lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))
(.f64 #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)))))) (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 (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)))))
(cos.f64 (neg.f64 lambda2))
(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 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(literal -1/2 binary64)
(*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))
(sin.f64 (neg.f64 lambda2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))
(*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1))
(cos.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))
(*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))
(.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2))
(cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
(*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 lambda1 lambda2)
#s(literal 1 binary64)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2))))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
(fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))
(*.f64 (sin.f64 phi1) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
(*.f64 (sin.f64 phi2) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2))
#s(approx (cos phi1) #s(literal 1 binary64))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
(*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))
(cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))
(-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))
(pow.f64 lambda1 #s(literal 2 binary64))
#s(literal 2 binary64)
(pow.f64 lambda2 #s(literal 2 binary64))
(+.f64 lambda1 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
(-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)
(+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
(-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)
(+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(sin.f64 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(sin.f64 (-.f64 lambda1 lambda2))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
(fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))
(*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))
(pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))
(pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))
(-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))
(*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.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)))))
(sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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))))
(fma.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)))
(.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 (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 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
(+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
(sin.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
(-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(acos.f64 #s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
(.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))
(pow.f64 (cos.f64 phi2) #s(literal 2 binary64))
(-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
(.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
(-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
(.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (sin.f64 phi2) #s(literal 2 binary64))
(pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))
(/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))
#s(approx (sin phi1) phi1)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1))
#s(literal 1/120 binary64)
(*.f64 phi1 phi1)
#s(literal 1/6 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2))
#s(approx (sin phi2) phi2)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64))
(*.f64 phi2 phi2)
#s(literal -1/6 binary64)
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2)) #s(literal 1/6 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64)))
#s(approx (cos phi2) #s(literal 1 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1))
(cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))
#s(literal -1 binary64)
(/.f64 lambda2 lambda1)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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 #s(literal 1/2 binary64) (+.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 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(*.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))))
#s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
(*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))
(pow.f64 phi2 #s(literal 6 binary64))
#s(literal 6 binary64)
(-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))
(fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(literal 1/24 binary64)
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(pow.f64 phi2 #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))
(+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(literal 1/720 binary64)
(/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))
(pow.f64 phi2 #s(literal 4 binary64))
#s(literal 4 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(.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 (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(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 (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
(*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))
(+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))
(/.f64 (cos.f64 lambda1) 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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(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 (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
(+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))
(*.f64 lambda1 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)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) R)
(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 lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))
(.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1)
(fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))
(/.f64 (cos.f64 lambda2) lambda1)
(*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))
(-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))
(*.f64 lambda1 lambda1)
(*.f64 lambda2 lambda2)
#s(approx (+ lambda1 lambda2) lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
(+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))
(*.f64 #s(literal -1 binary64) lambda1)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
(*.f64 #s(literal -1 binary64) lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
(.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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
(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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.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)))
(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))
(fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)))
(sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))
(.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
(.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))

Outputs
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx R #s(hole binary64 R))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) #s(hole binary64 (* R (acos (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* -1 (/ (* lambda1 (* (cos phi1) (sin (neg lambda2)))) phi2)) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda1 (+ (* -1 (/ (* (cos phi1) (sin (neg lambda2))) phi2)) (* -1/2 (/ (* lambda1 (* (cos phi1) (cos (neg lambda2)))) phi2)))) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda1 (+ (* -1 (/ (* (cos phi1) (sin (neg lambda2))) phi2)) (* lambda1 (+ (* -1/2 (/ (* (cos phi1) (cos (neg lambda2))) phi2)) (* 1/6 (/ (* lambda1 (* (cos phi1) (sin (neg lambda2)))) phi2)))))) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (/ (* (cos phi1) (cos (neg lambda2))) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* -1 (/ (* lambda1 (* (cos phi1) (sin (neg lambda2)))) phi2)) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (* (cos phi1) (sin (neg lambda2))) phi2)) (* -1/2 (/ (* lambda1 (* (cos phi1) (cos (neg lambda2)))) phi2)))) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (* (cos phi1) (sin (neg lambda2))) phi2)) (* lambda1 (+ (* -1/2 (/ (* (cos phi1) (cos (neg lambda2))) phi2)) (* 1/6 (/ (* lambda1 (* (cos phi1) (sin (neg lambda2)))) phi2)))))) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (neg lambda2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* -1/2 (/ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) phi1)))) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* lambda1 (+ (* -1/2 (/ (* (cos phi2) (cos (neg lambda2))) phi1)) (* 1/6 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)))))) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (neg lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* -1 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* -1/2 (/ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) phi1)))) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* lambda1 (+ (* -1/2 (/ (* (cos phi2) (cos (neg lambda2))) phi1)) (* 1/6 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)))))) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (* phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (+ (* -1 (* lambda1 (sin (neg lambda2)))) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (+ (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (+ (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (* phi1 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 1))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (cos lambda1) #s(hole binary64 1))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/24 (pow lambda1 2)) 1/2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/24 (* -1/720 (pow lambda1 2)))) 1/2)))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/6 (* (pow lambda1 2) lambda2))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* 1/120 (* (pow lambda1 2) lambda2))))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) lambda2)) (* 1/120 lambda2)))))))))
#s(approx (sin lambda1) #s(hole binary64 lambda1))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* 1/120 (pow lambda1 2)) 1/6))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/120 (* -1/5040 (pow lambda1 2)))) 1/6))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (sin (neg lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (* -1 lambda2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (* -1 lambda2))))) (* (cos phi2) (cos (* -1 lambda2))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (* -1 lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (* -1 lambda2))))))) (* (cos phi2) (cos (* -1 lambda2))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (* -1 lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (* -1 lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (* -1 lambda2))))))))) (* (cos phi2) (cos (* -1 lambda2))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* -1 (* lambda1 (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (* -1 lambda2))) (* 1/6 (* lambda1 (sin (* -1 lambda2)))))) (sin (* -1 lambda2)))))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) #s(hole binary64 (* -1 (pow lambda2 2))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) #s(hole binary64 (- (pow lambda1 2) (pow lambda2 2))))
#s(approx (pow lambda1 2) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda2))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (+ lambda1 lambda2)))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2)))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2))))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) #s(hole binary64 (acos (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 3))) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi1) (sin lambda2))))) (* (cos lambda2) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (cos phi1))) (* lambda1 (- (/ (* (cos phi1) (pow (sin lambda2) 3)) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi1) (sin lambda2))))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (* (pow (cos lambda2) 3) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (* (pow (cos lambda2) 3) (cos phi1)))) (* (pow (cos lambda2) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (* (pow (cos lambda2) 3) (cos phi1))) (* lambda1 (* (cos phi1) (pow (sin lambda2) 3))))) (* (pow (cos lambda2) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (* (pow (cos lambda2) 3) (cos phi1))) (* lambda1 (+ (* 7/8 (* lambda1 (* (pow (cos lambda2) 3) (cos phi1)))) (* (cos phi1) (pow (sin lambda2) 3)))))) (* (pow (cos lambda2) 3) (cos phi1)))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (pow (sin lambda2) 3)))) (pow (cos lambda2) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (+ (* 7/8 (* lambda1 (pow (cos lambda2) 3))) (pow (sin lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 1))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (+ 1 (* -3/2 (pow lambda1 2)))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 7/8 (pow lambda1 2)) 3/2)))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 7/8 (* -61/240 (pow lambda1 2)))) 3/2)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (pow (sin lambda2) 3))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (* (pow lambda1 2) (pow (sin lambda2) 3))) (pow (sin lambda2) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* 13/120 (* (pow lambda1 2) (pow (sin lambda2) 3))))) (pow (sin lambda2) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* (pow lambda1 2) (+ (* -41/3024 (* (pow lambda1 2) (pow (sin lambda2) 3))) (* 13/120 (pow (sin lambda2) 3)))))) (pow (sin lambda2) 3)))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (pow lambda1 3)))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* -1/2 (pow lambda1 2))))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* (pow lambda1 2) (- (* 13/120 (pow lambda1 2)) 1/2))))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 13/120 (* -41/3024 (pow lambda1 2)))) 1/2))))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (pow (cos lambda2) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (pow (cos lambda2) 2)) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 1/3 (pow (cos lambda2) 2)))) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (pow (cos lambda2) 2)) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (+ (* 1/3 (pow (cos lambda2) 2)) (* (pow lambda1 2) (+ (* -2/45 (pow (cos lambda2) 2)) (* 2/45 (pow (sin lambda2) 2))))))) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 1))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* -1 (pow lambda1 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/3 (pow lambda1 2)) 1)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/3 (* -2/45 (pow lambda1 2)))) 1)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (pow (sin lambda2) 2))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/3 (* (pow lambda1 2) (pow (sin lambda2) 2))) (pow (sin lambda2) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 2/45 (* (pow lambda1 2) (pow (sin lambda2) 2))))) (pow (sin lambda2) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* (pow lambda1 2) (+ (* -1/315 (* (pow lambda1 2) (pow (sin lambda2) 2))) (* 2/45 (pow (sin lambda2) 2)))))) (pow (sin lambda2) 2)))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (pow lambda1 2)))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1/3 (pow lambda1 2))))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* (pow lambda1 2) (- (* 2/45 (pow lambda1 2)) 1/3))))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 2/45 (* -1/315 (pow lambda1 2)))) 1/3))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (* 1/12 (* (cos lambda2) (sin lambda2)))))))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (+ (* 1/12 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/144 (* (cos lambda2) (sin lambda2))) (+ (* -1/240 (* (cos lambda2) (sin lambda2))) (+ (* -1/720 (* (cos lambda2) (sin lambda2))) (* -1/5040 (* (cos lambda2) (sin lambda2))))))))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (cos lambda2) (sin lambda2)))) (* (cos lambda2) (sin lambda2))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* 1/120 (* (pow lambda1 2) (* (cos lambda2) (sin lambda2))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (cos lambda2) (sin lambda2)))) (* 1/120 (* (cos lambda2) (sin lambda2)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/24 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* 1/24 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* 1/24 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))))) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))) (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/24 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))) (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/4 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/4 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* 1/48 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/4 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (pow lambda1 2) (+ (* -1/1440 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/48 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (* -1/2 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (* (pow lambda1 2) (+ (* -1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* 1/24 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (* (pow lambda1 2) (+ (* -1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/24 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* lambda1 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2)))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda1 (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* lambda1 (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda1 (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* lambda1 (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (* lambda1 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (+ (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* (pow lambda1 2) (- (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 2 (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)))) (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (+ (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* (pow lambda1 2) (- (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 2 (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (+ (* (pow lambda1 2) (- (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 2 (- (+ (* -1/144 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/240 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/5040 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))) (+ (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/360 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)) (/ (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4))))) (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* 2 (/ (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda1 (+ (* 2 (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda1 (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (+ (* 2 (* (pow lambda1 2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda1 (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (+ (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* (pow lambda1 2) (+ (* 2 (* (pow lambda1 2) (- (+ (* -1/144 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/240 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/5040 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))))) (* 2 (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* -1/144 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/240 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/5040 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/2 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/2 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* 1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/12 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/2 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* 1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/12 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/144 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/240 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/720 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/120 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* 1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (pow (cos phi2) 2))) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (pow (cos phi2) 2)) (* 1/120 (* (pow lambda1 2) (pow (cos phi2) 2))))) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (pow (cos phi2) 2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (pow (cos phi2) 2))) (* 1/120 (pow (cos phi2) 2)))))) (pow (cos phi2) 2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* (pow lambda1 2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* (pow lambda1 2) (- (+ (* (pow lambda1 2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/360 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)) (/ (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (pow lambda1 2) (+ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (pow lambda1 2) (+ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (* (pow lambda1 2) (+ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (pow lambda1 2) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (pow lambda1 2) (+ (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow lambda1 2) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))))))))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (+ (* -1 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -2/45 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* -1 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -2/45 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* -1 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (+ (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/360 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (* 1/3 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* 1/3 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (* -2/45 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* 1/3 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (* -1 (* (pow lambda1 2) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (* (pow lambda1 2) (- (* -1 (* (pow lambda1 2) (+ (* -1/720 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (+ (* 1/48 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda1)))
#s(approx (* -1 (/ lambda2 lambda1)) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (/ lambda2 lambda1) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow lambda1 2) (cos lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow lambda1 2) (cos lambda2))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 1))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (/ 1 lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ lambda1 (/ 1 lambda2))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/2 (/ lambda1 lambda2)))) (/ 1 lambda2))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* lambda1 (- (* -1/6 lambda1) (* 1/2 (/ 1 lambda2)))))) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* -1/2 (/ (pow lambda1 2) lambda2)) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* (pow lambda1 2) (- (* 1/24 (/ (pow lambda1 2) lambda2)) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* (pow lambda1 2) (- (* (pow lambda1 2) (+ (* -1/720 (/ (pow lambda1 2) lambda2)) (* 1/24 (/ 1 lambda2)))) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 1))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (* lambda1 lambda2) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (cos lambda2)))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (/ (cos lambda2) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (/ (+ (cos lambda2) (* lambda1 (sin lambda2))) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (/ (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (cos lambda2) (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (cos lambda2)) (* -1 (* lambda1 (sin lambda2)))) (pow lambda1 2))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (* -1 (/ (cos lambda2) lambda1))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (/ (+ (* -1 (cos lambda2)) (* -1 (* lambda1 (sin lambda2)))) lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (* -1 (/ (cos lambda2) lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (/ (cos lambda2) lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* -1 (* lambda1 (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (* -1 lambda2))) (* 1/6 (* lambda1 (sin (* -1 lambda2)))))) (sin (* -1 lambda2)))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* -1 (pow lambda2 2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (- (pow lambda1 2) (pow lambda2 2))))
#s(approx (* lambda1 lambda1) #s(hole binary64 (pow lambda1 2)))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 lambda2))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (+ lambda1 lambda2)))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (/ (+ lambda1 lambda2) lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (* -1 lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 3))) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (cos lambda2)))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (+ (* -3/2 (cos lambda2)) (* lambda1 (- (/ (pow (sin lambda2) 3) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (cos lambda2))) (+ (* -1 (/ (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))) (cos lambda2))) (/ (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (pow (cos lambda2) 2))))))) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (pow (sin lambda2) 3)))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (+ (* 7/8 (* lambda1 (pow (cos lambda2) 3))) (pow (sin lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* 7/8 (* (pow lambda1 2) (pow (cos lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* (pow lambda1 2) (+ (* -61/240 (* (pow lambda1 2) (pow (cos lambda2) 3))) (* 7/8 (pow (cos lambda2) 3)))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (pow (sin lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (* (pow lambda1 2) (pow (sin lambda2) 3))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* 13/120 (* (pow lambda1 2) (pow (sin lambda2) 3))))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* (pow lambda1 2) (+ (* -41/3024 (* (pow lambda1 2) (pow (sin lambda2) 3))) (* 13/120 (pow (sin lambda2) 3)))))) (pow (sin lambda2) 3)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* lambda1 (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (pow (sin lambda2) 2)) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* lambda1 (- (* -1/3 (* lambda1 (pow (sin lambda2) 2))) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (pow (sin lambda2) 2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/3 (* (pow lambda1 2) (pow (sin lambda2) 2))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 2/45 (* (pow lambda1 2) (pow (sin lambda2) 2))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* (pow lambda1 2) (+ (* -1/315 (* (pow lambda1 2) (pow (sin lambda2) 2))) (* 2/45 (pow (sin lambda2) 2)))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (* 1/12 (* (cos lambda2) (sin lambda2)))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (+ (* 1/12 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/144 (* (cos lambda2) (sin lambda2))) (+ (* -1/240 (* (cos lambda2) (sin lambda2))) (+ (* -1/720 (* (cos lambda2) (sin lambda2))) (* -1/5040 (* (cos lambda2) (sin lambda2))))))))))))))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (* (pow (cos phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg lambda2)) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (+ (* lambda1 (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (sin (neg lambda2)) 2)))))) (pow (cos (neg lambda2)) 2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (+ (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (+ (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (- (+ (* lambda1 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos lambda1) #s(hole binary64 (cos lambda1)))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (sin lambda1) #s(hole binary64 (sin lambda1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* -1/2 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2))) (/ (sin (neg lambda2)) lambda1)))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 lambda1))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 lambda1))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) #s(hole binary64 (pow lambda1 2)))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (pow (sin lambda1) 3)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (pow (sin lambda1) 2)))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* (pow (cos phi2) 2) (sin lambda1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (+ 1 (* -1 (/ lambda2 lambda1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ (sin lambda1) (/ (cos lambda1) lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (/ (cos lambda1) lambda2)))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ lambda2 (/ 1 lambda1)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (* -1/2 (cos lambda2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (sin lambda2) lambda1))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 lambda1))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (pow lambda1 2)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda1 (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 1))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (+ 1 (/ lambda2 lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (pow (cos lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (- (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (/ (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))) phi2)))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))) phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg (+ lambda2 (* -1 lambda1)))) (* phi1 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (sin (neg lambda2)) (* -1 (/ (cos (neg lambda2)) lambda1))) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (cos (neg lambda2))) (/ (sin (neg lambda2)) lambda1))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ lambda2 lambda1)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda1 (- (* -1/2 (/ (PI) lambda1)) 1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 lambda2) (/ 1 lambda1))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (+ (sin lambda2) (/ (cos lambda2) lambda1)) lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ lambda2 lambda1)) 1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI))))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (/ (* lambda2 (* (cos phi1) (sin lambda1))) phi2) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi1))) phi2)) (/ (* (cos phi1) (sin lambda1)) phi2))) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) phi2)) (* -1/6 (/ (* lambda2 (* (cos phi1) (sin lambda1))) phi2)))) (/ (* (cos phi1) (sin lambda1)) phi2))) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (/ (* (cos lambda1) (cos phi1)) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (/ (* lambda2 (* (cos phi1) (sin lambda1))) phi2) (/ (* (cos lambda1) (cos phi1)) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi1))) phi2)) (/ (* (cos phi1) (sin lambda1)) phi2))) (/ (* (cos lambda1) (cos phi1)) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) phi2)) (* -1/6 (/ (* lambda2 (* (cos phi1) (sin lambda1))) phi2)))) (/ (* (cos phi1) (sin lambda1)) phi2))) (/ (* (cos lambda1) (cos phi1)) phi2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) phi1)) (* -1/6 (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1)))) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos lambda1) (cos phi2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) phi1)) (* -1/6 (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1)))) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (* phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))) (* phi1 phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow lambda2 2) (cos phi1))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow lambda2 2) (cos phi1))))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (cos lambda2) #s(hole binary64 1))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (* phi2 (sin phi1)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow lambda2 2) (cos phi1))) (* phi2 (sin phi1))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (+ (* phi2 (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow lambda2 2) (cos phi1)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (+ (* phi2 (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi1))) (* 1/24 (cos phi1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 1))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* 1/4 (* (pow lambda1 2) lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2)))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* lambda2 (+ (* -1/6 lambda2) (* 1/4 lambda1))))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* 1/4 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/48 (* lambda1 (pow lambda2 2))) (* 1/4 lambda1))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* 1/4 lambda1) (* (pow lambda2 2) (+ (* -1/48 lambda1) (* 1/1440 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) #s(hole binary64 (+ (* -1 (pow lambda2 2)) (pow lambda1 2))))
#s(approx (pow lambda2 2) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI))))))) (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (PI))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (* 1/2 (PI))))))) (+ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (* 1/2 (PI))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* -1/2 (* lambda2 (* (cos phi2) (sin (* 1/2 (PI)))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* 1/6 (* lambda2 (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* lambda2 (cos (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* lambda2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda2 (+ (* -1 (cos (* 1/2 (PI)))) (* lambda2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* lambda2 (cos (* 1/2 (PI))))))))))))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (+ (* -1 lambda2) (* 1/2 (PI)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (sin lambda2) #s(hole binary64 lambda2))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* -1/6 (pow lambda2 2))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* 1/120 (pow lambda2 2)) 1/6))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/120 (* -1/5040 (pow lambda2 2)))) 1/6))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* lambda2 (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos lambda1) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (* 1/2 (PI)))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 3))) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi1) (sin lambda1))))) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (cos phi1))) (* lambda2 (- (/ (* (cos phi1) (pow (sin lambda1) 3)) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi1) (sin lambda1))))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (* (pow (cos lambda1) 3) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (* (pow (cos lambda1) 3) (cos phi1)))) (* (pow (cos lambda1) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (* (pow (cos lambda1) 3) (cos phi1))) (* lambda2 (* (cos phi1) (pow (sin lambda1) 3))))) (* (pow (cos lambda1) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (* (pow (cos lambda1) 3) (cos phi1))) (* lambda2 (+ (* 7/8 (* lambda2 (* (pow (cos lambda1) 3) (cos phi1)))) (* (cos phi1) (pow (sin lambda1) 3)))))) (* (pow (cos lambda1) 3) (cos phi1)))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (pow (sin lambda1) 3)))) (pow (cos lambda1) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (+ (* 7/8 (* lambda2 (pow (cos lambda1) 3))) (pow (sin lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 1))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (+ 1 (* -3/2 (pow lambda2 2)))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 7/8 (pow lambda2 2)) 3/2)))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 7/8 (* -61/240 (pow lambda2 2)))) 3/2)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (pow (sin lambda1) 3))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (+ (* -1/2 (* (pow lambda2 2) (pow (sin lambda1) 3))) (pow (sin lambda1) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* 13/120 (* (pow lambda2 2) (pow (sin lambda1) 3))))) (pow (sin lambda1) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* (pow lambda2 2) (+ (* -41/3024 (* (pow lambda2 2) (pow (sin lambda1) 3))) (* 13/120 (pow (sin lambda1) 3)))))) (pow (sin lambda1) 3)))))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (pow lambda2 3)))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (* (pow lambda2 3) (+ 1 (* -1/2 (pow lambda2 2))))))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (* (pow lambda2 3) (+ 1 (* (pow lambda2 2) (- (* 13/120 (pow lambda2 2)) 1/2))))))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (* (pow lambda2 3) (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 13/120 (* -41/3024 (pow lambda2 2)))) 1/2))))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (pow (cos lambda1) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -1 (pow (cos lambda1) 2)) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 1/3 (pow (cos lambda1) 2)))) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -1 (pow (cos lambda1) 2)) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (+ (* 1/3 (pow (cos lambda1) 2)) (* (pow lambda2 2) (+ (* -2/45 (pow (cos lambda1) 2)) (* 2/45 (pow (sin lambda1) 2))))))) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 1))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (+ 1 (* -1 (pow lambda2 2)))))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/3 (pow lambda2 2)) 1)))))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/3 (* -2/45 (pow lambda2 2)))) 1)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (pow (sin lambda1) 2))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/3 (* (pow lambda2 2) (pow (sin lambda1) 2))) (pow (sin lambda1) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 2/45 (* (pow lambda2 2) (pow (sin lambda1) 2))))) (pow (sin lambda1) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* (pow lambda2 2) (+ (* -1/315 (* (pow lambda2 2) (pow (sin lambda1) 2))) (* 2/45 (pow (sin lambda1) 2)))))) (pow (sin lambda1) 2)))))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (pow lambda2 2)))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -1/3 (pow lambda2 2))))))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* (pow lambda2 2) (- (* 2/45 (pow lambda2 2)) 1/3))))))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 2/45 (* -1/315 (pow lambda2 2)))) 1/3))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (* (cos lambda1) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (+ (* 1/12 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* 1/24 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* -1/2 (* (pow lambda2 2) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow lambda2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* 1/24 (* (pow lambda2 2) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow lambda2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (sin (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))) (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow lambda2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow lambda2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (/ (cos lambda1) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (/ (+ (cos lambda1) (* lambda2 (sin lambda1))) lambda2)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* lambda1 lambda2) (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* lambda2 (+ lambda1 (* (pow lambda1 2) (* lambda2 (- 1/4 (* 1/2 (/ 1 (pow lambda1 2)))))))) (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* lambda2 (+ lambda1 (* lambda2 (+ (* -1/6 (* lambda1 lambda2)) (* (pow lambda1 2) (- 1/4 (* 1/2 (/ 1 (pow lambda1 2))))))))) (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (/ 1 (pow lambda1 2)) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (+ (/ 1 (pow lambda1 2)) (/ lambda2 lambda1)) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (- 1/4 (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))) (/ 1 (pow lambda1 2))) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (- (+ 1/4 (* -1/6 (/ lambda2 lambda1))) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))) (/ 1 (pow lambda1 2))) 1/2)))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (/ -1 (pow lambda1 2))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (- (* -1 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (- (* lambda2 (- (* 1/2 (/ lambda2 (pow lambda1 2))) (/ 1 lambda1))) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (- (* lambda2 (- (* lambda2 (+ (* 1/6 (/ lambda2 lambda1)) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))) (/ 1 (pow lambda1 2)))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (/ -1 lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (- (* -1 lambda2) (/ 1 lambda1))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (/ lambda2 lambda1)) 1)) (/ 1 lambda1))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (+ (* 1/6 lambda2) (* 1/2 (/ 1 lambda1)))) 1)) (/ 1 lambda1))))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (/ -1 lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (- (* 1/2 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1))))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (- (* (pow lambda2 2) (+ (* -1/24 (/ (pow lambda2 2) lambda1)) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (- (* (pow lambda2 2) (+ (* (pow lambda2 2) (- (* 1/720 (/ (pow lambda2 2) lambda1)) (* 1/24 (/ 1 lambda1)))) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (/ 1 lambda1)))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (+ (* -1/2 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (+ (* (pow lambda2 2) (- (* 1/24 (/ (pow lambda2 2) lambda1)) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (+ (* (pow lambda2 2) (- (* (pow lambda2 2) (+ (* -1/720 (/ (pow lambda2 2) lambda1)) (* 1/24 (/ 1 lambda1)))) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 -1/2))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* 1/4 (pow lambda2 2)) 1/2)))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* (pow lambda2 2) (+ 1/4 (* -1/48 (pow lambda2 2)))) 1/2)))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* (pow lambda2 2) (+ 1/4 (* (pow lambda2 2) (- (* 1/1440 (pow lambda2 2)) 1/48)))) 1/2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (+ (* -1 (pow lambda2 2)) (pow lambda1 2))))
#s(approx (* lambda2 lambda2) #s(hole binary64 (pow lambda2 2)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* -1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 3))) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (cos lambda1)))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (+ (* -3/2 (cos lambda1)) (* lambda2 (- (/ (pow (sin lambda1) 3) (pow (cos lambda1) 2)) (+ (* -1 (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (cos lambda1))) (/ (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (pow (cos lambda1) 2))))))) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (pow (sin lambda1) 3)))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (+ (* 7/8 (* lambda2 (pow (cos lambda1) 3))) (pow (sin lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* 7/8 (* (pow lambda2 2) (pow (cos lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* (pow lambda2 2) (+ (* -61/240 (* (pow lambda2 2) (pow (cos lambda1) 3))) (* 7/8 (pow (cos lambda1) 3)))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (pow (sin lambda1) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* -1/2 (* (pow lambda2 2) (pow (sin lambda1) 3))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* 13/120 (* (pow lambda2 2) (pow (sin lambda1) 3))))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* (pow lambda2 2) (+ (* -41/3024 (* (pow lambda2 2) (pow (sin lambda1) 3))) (* 13/120 (pow (sin lambda1) 3)))))) (pow (sin lambda1) 3)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* lambda2 (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (pow (sin lambda1) 2)) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* lambda2 (- (* -1/3 (* lambda2 (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (pow (sin lambda1) 2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/3 (* (pow lambda2 2) (pow (sin lambda1) 2))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 2/45 (* (pow lambda2 2) (pow (sin lambda1) 2))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* (pow lambda2 2) (+ (* -1/315 (* (pow lambda2 2) (pow (sin lambda1) 2))) (* 2/45 (pow (sin lambda1) 2)))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (* (cos lambda1) (sin lambda1)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* lambda2 (* (pow (cos phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* (pow (cos phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (pow (sin lambda1) 2)))))) (pow (cos lambda1) 2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* lambda2 (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (+ (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (+ (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (- (+ (* lambda2 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* lambda2 (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos lambda1) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (* 1/2 (PI)))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) #s(hole binary64 (* (pow lambda2 2) (- (/ (pow lambda1 2) (pow lambda2 2)) 1))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda2 (+ 1 (/ lambda1 lambda2)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (* lambda2 (- (* 1/2 (/ (PI) lambda2)) 1))))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (pow (sin lambda2) 3)))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (pow (sin lambda2) 2)))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (+ (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda2 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (/ 1 lambda2)))))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (* -1/2 (cos lambda2))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda2 2) (- (/ (pow lambda1 2) (pow lambda2 2)) 1))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda2 (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (* lambda2 (+ (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (/ (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))) phi2)))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))) phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (+ lambda1 (* -1 lambda2))) (* phi1 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (* -1 lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (* -1 lambda2)))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ lambda1 lambda2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda2 (- (* -1/2 (/ (PI) lambda2)) 1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ (* -1 lambda2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) #s(hole binary64 (sin (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1/2 (/ (PI) lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos (* -1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (* -1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (* -1 (/ (- (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) lambda2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (* -1 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 lambda1) (/ 1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ lambda1 lambda2)) 1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (+ lambda1 (* -1 lambda2))) 2)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 phi2)))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 (+ phi2 (* -1/6 (* (pow phi1 2) phi2))))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* 1/120 (* (pow phi1 2) phi2))))))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) phi2)) (* 1/120 phi2)))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ phi1 (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (* phi1 (+ 1 (* -1/2 (/ (* phi1 (cos (- lambda1 lambda2))) phi2)))) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (* phi1 (+ 1 (* phi1 (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi2)) (* -1/6 phi1))))) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi1 2) (cos (- lambda1 lambda2))) phi2)) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi2)) (* 1/24 (/ (* (pow phi1 2) (cos (- lambda1 lambda2))) phi2)))) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi2)) (* (pow phi1 2) (+ (* -1/720 (/ (* (pow phi1 2) (cos (- lambda1 lambda2))) phi2)) (* 1/24 (/ (cos (- lambda1 lambda2)) phi2)))))) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (/ (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* phi1 phi2) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda2) (cos phi2)))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow phi1 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (* (pow phi1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi1 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (* (pow phi1 2) (+ (* -1/2 (cos lambda2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos lambda2) (* phi1 phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos lambda2) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos lambda2))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos lambda2) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 phi2)))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 (+ phi2 (* -1/6 (* (pow phi1 2) phi2))))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* 1/120 (* (pow phi1 2) phi2))))))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) phi2)) (* 1/120 phi2)))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/2 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/24 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (/ (* phi1 (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* -1/6 (* phi1 (sin phi2))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi1 2) (+ (* -1/720 (/ (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (* 1/24 (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (* 1/24 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda2) (cos phi2)))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1/2 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/24 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/24 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* -1/2 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* 1/24 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (sin (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/6 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi1 (cos (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (+ (* -1 phi1) (* 1/2 (PI)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))) (* -1/2 (* phi1 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/6 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI))))))))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2))))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* -1/6 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (cos (* 1/2 (PI))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI)))))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (+ (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (+ (* phi1 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* 2 (sin (* 1/2 (PI))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* 2 (sin (* 1/2 (PI)))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* 2 (sin (* 1/2 (PI)))) (* phi1 (+ (cos (* 1/2 (PI))) (+ (* -1 (cos (* 1/2 (PI)))) (* -1 (* phi1 (sin (* 1/2 (PI)))))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* 2 (sin (* 1/2 (PI)))) (* phi1 (+ (cos (* 1/2 (PI))) (+ (* -1 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1 (sin (* 1/2 (PI)))) (* phi1 (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI))))))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* 1/2 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos lambda1) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1 (* phi1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* phi1 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (* (cos lambda1) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (* 2 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* phi1 (- (+ (* -1 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2)))))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* phi1 (- (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (+ (* phi1 (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2))))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* 2 (* (cos phi2) (sin lambda1)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (* 2 (/ (* phi1 (* (sin lambda1) (sin phi2))) (cos lambda1))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (* 2 (* phi1 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1))))))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (+ (* -2 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))))) (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (cos phi2) (sin lambda1)) (/ (* phi1 (* (sin lambda1) (sin phi2))) (cos lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))))) (* -1 (* (cos phi2) (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow phi1 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* 1/3 (* (pow phi1 2) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow phi1 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))) (* 1/3 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))))))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* (pow (cos phi2) 2) (sin lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (sin lambda1))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (sin lambda1))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* 1/3 (* (pow (cos phi2) 2) (sin lambda1))))))) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 1))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (- (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))) (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* 1/24 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/24 (* (cos lambda1) (cos phi2))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* 2 (/ (* phi1 (* (sin lambda1) (sin phi2))) (cos lambda1))) (* (cos phi2) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2)))))) (+ (* -1/720 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* 1/24 (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (* (cos phi2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (+ (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))) (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi1 2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow phi1 2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow phi1 2) (+ (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2)))) (* (pow phi1 2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (- (+ (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2))))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (pow (cos phi2) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (cos phi2) 2))) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos phi2) 2)) (* 1/3 (* (pow phi1 2) (pow (cos phi2) 2))))) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos phi2) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (cos phi2) 2))) (* 1/3 (pow (cos phi2) 2)))))) (pow (cos phi2) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (pow (sin phi2) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* 2/45 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (sin phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))) (pow (sin phi2) 2)))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* -2 (* phi1 (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi1 (+ (* -2 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* phi1 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi1 (+ (* -2 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* phi1 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (+ (* phi1 (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (pow (sin phi2) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (* (cos lambda1) (cos phi2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow phi1 2) (pow (sin phi2) 2)) (* (cos lambda1) (cos phi2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (/ (* phi1 (pow (sin phi2) 3)) (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (- (* phi1 (- (* -1/3 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1 (/ (pow (sin phi2) 4) (* (pow (cos lambda1) 3) (pow (cos phi2) 3)))) (* -1/2 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))))) (* -1 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1/3 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1 (/ (pow (sin phi2) 4) (* (pow (cos lambda1) 3) (pow (cos phi2) 3)))) (* -1/2 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* 1/6 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))))) (* -1/3 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))) (+ (* -1 (/ (pow (sin phi2) 4) (* (pow (cos lambda1) 3) (pow (cos phi2) 3)))) (* -1/2 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))))) (* -1 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 phi1))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6)))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi1 2)) 1/6)))
#s(approx (* 1/120 (* phi1 phi1)) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos lambda2) (cos phi2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* 1/24 (* (pow phi1 2) (* (cos lambda2) (cos phi2)))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos lambda2) (cos phi2)))) (* 1/24 (* (cos lambda2) (cos phi2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/6 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))) (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2)))))) (* 1/2 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* 1/2 (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))) (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/2 (* phi1 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1/2 (* phi1 (sin (* 1/2 (PI))))) (* 1/2 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* 1/2 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/2 (* phi1 (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI))))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* 1/24 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi1 2) (+ (* -1/720 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* 2 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (+ (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (* -2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (sin phi2) 2))))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* 1/3 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (pow (cos (- lambda1 lambda2)) 2)))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* phi1 (- (/ (pow (sin phi2) 3) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* -1 (/ (* (sin phi2) (- (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (* (sin phi2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi1 (pow (sin phi2) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi1 (+ (* 7/8 (* phi1 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (pow (sin phi2) 3))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 7/8 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 7/8 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (sin phi2) 3)) (* 13/120 (* (pow phi1 2) (pow (sin phi2) 3))))) (pow (sin phi2) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (sin phi2) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (sin phi2) 3))) (* 13/120 (pow (sin phi2) 3)))))) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (pow (sin phi2) 2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* phi1 (- (* -1/3 (* phi1 (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* 2/45 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (sin phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))) (pow (sin phi2) 2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/240 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/720 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/5040 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))))))))))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/24 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (sin phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* phi1 (+ phi2 (/ (cos (- lambda1 lambda2)) phi1)))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) 1))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 phi1))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 phi1))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow (sin phi1) 2) (pow (sin phi2) 2))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* 1/120 (pow phi1 5))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 5) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 5) (- (+ 1/120 (/ 1 (pow phi1 4))) (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* 1/120 (pow phi1 4))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 4) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 4) (- (+ 1/120 (/ 1 (pow phi1 4))) (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 2) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (sin phi2) 2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 phi2) (* -1 (/ (cos (- lambda1 lambda2)) phi1)))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (sin (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1/2 (/ (PI) phi1)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 5) (- (* 1/6 (/ 1 (pow phi1 2))) 1/120)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 5) (- (* 1/6 (/ 1 (pow phi1 2))) (+ 1/120 (/ 1 (pow phi1 4))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* 1/2 (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (/ (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi1 phi2)))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi2 (+ phi1 (* -1/6 (* phi1 (pow phi2 2)))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* 1/120 (* phi1 (pow phi2 2)))))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* (pow phi2 2) (+ (* -1/5040 (* phi1 (pow phi2 2))) (* 1/120 phi1)))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ phi2 (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (* phi2 (+ 1 (* -1/2 (/ (* phi2 (cos (- lambda1 lambda2))) phi1)))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (* phi2 (+ 1 (* phi2 (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/6 phi2))))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (cos (- lambda1 lambda2))) phi1)) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi1)) (* 1/24 (/ (* (pow phi2 2) (cos (- lambda1 lambda2))) phi1)))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi1)) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (cos (- lambda1 lambda2))) phi1)) (* 1/24 (/ (cos (- lambda1 lambda2)) phi1)))))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda2) (cos phi1)))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow phi2 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi1 phi2)))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* -1/6 (* phi1 (pow phi2 2)))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* 1/120 (* phi1 (pow phi2 2)))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* (pow phi2 2) (+ (* -1/5040 (* phi1 (pow phi2 2))) (* 1/120 phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (* -1/2 (* (pow phi2 2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* -1/2 (* (pow phi2 2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* 1/24 (* (pow phi2 2) (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (* 1/2 (PI)) lambda2)))) (* 1/24 (sin (- (* 1/2 (PI)) lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ phi1 (* -1/2 (* phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi1 phi2)))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/24 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (/ (* phi2 (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* -1/6 (* phi2 (sin phi1))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda2) (cos phi1)))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (cos (* 1/2 (PI))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))) (* -1/2 (* phi2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI))))))))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (cos (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (cos (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* -1/2 (* phi2 (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (cos (* 1/2 (PI))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* -1/6 (* (pow phi2 2) (cos (* 1/2 (PI)))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/120 (* (pow phi2 2) (cos (* 1/2 (PI)))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos (* 1/2 (PI))))) (* 1/120 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* -1/2 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* 1/24 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI))))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1/2 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/24 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/24 (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (* 1/2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* phi2 (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos lambda1) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* phi2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* phi2 (* (cos lambda1) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (cos (- (* 1/2 (PI)) phi1))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1/2 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* -1/6 (* phi2 (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* phi2 (- (+ (* -1 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1)))))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* phi2 (- (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (* (cos phi1) (sin lambda1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))))))) (* (cos phi1) (sin lambda1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (+ (* phi2 (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1))))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))))))) (* (cos phi1) (sin lambda1)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* 2 (* (cos phi1) (sin lambda1)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (* 2 (/ (* phi2 (* (sin lambda1) (sin phi1))) (cos lambda1))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (* 2 (* phi2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1))))))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (+ (* -2 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))))) (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (cos phi1) (sin lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin lambda1)) (/ (* phi2 (* (sin lambda1) (sin phi1))) (cos lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))))) (* -1 (* (cos phi1) (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))) (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* 1/3 (* (pow phi2 2) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))) (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))) (* 1/3 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))))))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* (pow (cos phi1) 2) (sin lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (sin lambda1))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (sin lambda1)))))) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (sin lambda1))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* 1/3 (* (pow (cos phi1) 2) (sin lambda1))))))) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* (pow phi2 2) (sin lambda1))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* (pow phi2 2) (+ (* -1 (sin lambda1)) (* 1/3 (* (pow phi2 2) (sin lambda1))))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* (pow phi2 2) (+ (* -1 (sin lambda1)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (sin lambda1))) (* 1/3 (sin lambda1)))))))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 1))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* -1 (pow phi2 2)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/3 (pow phi2 2)) 1)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/3 (* -2/45 (pow phi2 2)))) 1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* phi2 (sin phi1))) (* (cos lambda1) (cos phi1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (- (* -1/2 (* phi2 (* (cos lambda1) (cos phi1)))) (sin phi1))) (* (cos lambda1) (cos phi1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* 1/24 (* (cos lambda1) (cos phi1))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* (cos phi1) (sin lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* 2 (/ (* phi2 (* (sin lambda1) (sin phi1))) (cos lambda1))) (* (cos phi1) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))) (+ (* -1/720 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* 1/24 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))) (+ (* -1/720 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* 1/24 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi2 2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))) (* (pow phi2 2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (- (+ (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (pow (cos phi1) 2))) (pow (cos phi1) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos phi1) 2)) (* 1/3 (* (pow phi2 2) (pow (cos phi1) 2))))) (pow (cos phi1) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos phi1) 2)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (pow (cos phi1) 2))) (* 1/3 (pow (cos phi1) 2)))))) (pow (cos phi1) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (pow (sin phi1) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (sin phi1) 2))) (pow (sin phi1) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (sin phi1) 2))) (* 2/45 (pow (sin phi1) 2)))))) (pow (sin phi1) 2)))))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (pow phi2 2)))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1/3 (pow phi2 2))))))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* (pow phi2 2) (- (* 2/45 (pow phi2 2)) 1/3))))))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 2/45 (* -1/315 (pow phi2 2)))) 1/3))))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* -2 (* phi2 (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi2 (+ (* -2 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* phi2 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi2 (+ (* -2 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* phi2 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (+ (* phi2 (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (* (cos lambda1) (cos phi1)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow phi2 2) (pow (sin phi1) 2)) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (/ (* phi2 (pow (sin phi1) 3)) (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (* -1/3 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1 (/ (pow (sin phi1) 4) (* (pow (cos lambda1) 3) (pow (cos phi1) 3)))) (* -1/2 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))))) (* -1 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1/3 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1 (/ (pow (sin phi1) 4) (* (pow (cos lambda1) 3) (pow (cos phi1) 3)))) (* -1/2 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* 1/6 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))))) (* -1/3 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))) (+ (* -1 (/ (pow (sin phi1) 4) (* (pow (cos lambda1) 3) (pow (cos phi1) 3)))) (* -1/2 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))))) (* -1 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (* (* phi2 phi2) 1/120) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6)))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6)))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow phi2 2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda2) (cos phi1)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda2) (cos phi1)))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda2) (cos phi1)))) (* 1/24 (* (cos lambda2) (cos phi1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* -1/2 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* 1/24 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))) (* 1/2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 1))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (pow phi2 6) #s(hole binary64 (pow phi2 6)))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ 1 (pow phi2 6))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ (+ 1 (* -1/2 (pow phi2 2))) (pow phi2 6))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (pow phi2 6))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (pow phi2 6))))
#s(approx (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) #s(hole binary64 (/ 1 (pow phi2 6))))
#s(approx (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) #s(hole binary64 (/ (+ 1 (* 1/24 (pow phi2 4))) (pow phi2 6))))
#s(approx (/ 1 (pow phi2 2)) #s(hole binary64 (/ 1 (pow phi2 2))))
#s(approx (pow phi2 2) #s(hole binary64 (pow phi2 2)))
#s(approx (/ 1 (pow phi2 6)) #s(hole binary64 (/ 1 (pow phi2 6))))
#s(approx (+ 1/720 (/ 1/2 (pow phi2 4))) #s(hole binary64 (/ 1/2 (pow phi2 4))))
#s(approx (+ 1/720 (/ 1/2 (pow phi2 4))) #s(hole binary64 (/ (+ 1/2 (* 1/720 (pow phi2 4))) (pow phi2 4))))
#s(approx (/ 1/2 (pow phi2 4)) #s(hole binary64 (/ 1/2 (pow phi2 4))))
#s(approx (pow phi2 4) #s(hole binary64 (pow phi2 4)))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 1/24))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (+ 1/24 (* -1/720 (pow phi2 2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* 1/24 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (cos (- (* 1/2 (PI)) phi1))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1/2 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* -1/6 (* phi2 (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (+ (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (* -2/45 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (sin phi1) 2))))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* phi2 (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (- (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))) (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* 1/3 (* (pow phi2 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (pow (cos (- lambda1 lambda2)) 2)))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* phi2 (- (/ (pow (sin phi1) 3) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* -1 (/ (* (sin phi1) (- (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))) (cos (- lambda1 lambda2)))) (/ (* (sin phi1) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi2 (pow (sin phi1) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi2 (+ (* 7/8 (* phi2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (pow (sin phi1) 3))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 7/8 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi2 2) (+ (* -61/240 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 7/8 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (pow (sin phi1) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* -1/2 (* (pow phi2 2) (pow (sin phi1) 3))) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (sin phi1) 3)) (* 13/120 (* (pow phi2 2) (pow (sin phi1) 3))))) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (sin phi1) 3)) (* (pow phi2 2) (+ (* -41/3024 (* (pow phi2 2) (pow (sin phi1) 3))) (* 13/120 (pow (sin phi1) 3)))))) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1 (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* -1 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (pow (sin phi1) 2)) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (+ (* -1 (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (+ (* phi2 (- (* -1/3 (* phi2 (pow (sin phi1) 2))) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (pow (sin phi1) 2))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (sin phi1) 2))) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (sin phi1) 2))) (* 2/45 (pow (sin phi1) 2)))))) (pow (sin phi1) 2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/240 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/720 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/5040 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/24 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (sin phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* phi2 (+ phi1 (/ (cos (- lambda1 lambda2)) phi2)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos lambda2) (cos phi1)) phi2)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 phi2))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin phi2))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 phi2))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (pow (cos phi2) 2)))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1/6 (pow phi2 3))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* (pow phi2 3) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* 1/120 (pow phi2 5))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 5) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 5) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* 1/120 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (* (pow phi2 2) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1/5040 (pow phi2 7))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* -1/5040 (pow phi2 6))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* -1/5040 (pow phi2 4))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* -1/5040 (pow phi2 4))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (* -1/5040 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (* (pow phi2 2) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 -1/720))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (- (* 1/24 (/ 1 (pow phi2 2))) 1/720)))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4))))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))))
#s(approx (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) #s(hole binary64 (/ 1/24 (pow phi2 2))))
#s(approx (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) #s(hole binary64 (/ (+ 1/24 (/ 1 (pow phi2 4))) (pow phi2 2))))
#s(approx (+ 1/720 (/ 1/2 (pow phi2 4))) #s(hole binary64 1/720))
#s(approx (+ 1/720 (/ 1/2 (pow phi2 4))) #s(hole binary64 (+ 1/720 (* 1/2 (/ 1 (pow phi2 4))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (* -1/720 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (* (pow phi2 2) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 phi1) (* -1 (/ (cos (- lambda1 lambda2)) phi2)))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos lambda2) (cos phi1)) phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos phi1) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 3) (- 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) 1/120)))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) (+ 1/120 (/ 1 (pow phi2 4))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- 1/5040 (* 1/120 (/ 1 (pow phi2 2))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- (+ 1/5040 (/ 1/6 (pow phi2 4))) (* 1/120 (/ 1 (pow phi2 2))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- (+ 1/5040 (/ 1/6 (pow phi2 4))) (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))

Calls

15 calls:

Time	Variable		Point	Expression
369.0ms	lambda2	@	-inf	((* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (* 1/2 (PI)) 1/2 (PI) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos phi2) phi2 (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (* (sin phi1) (sin phi2)) (sin phi1) (sin phi2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (* (cos phi1) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* phi1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi1)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (cos lambda1) (* lambda2 (sin lambda1)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (cos (neg lambda2)) (neg lambda2) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) -1/2 (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) 1 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (sin phi2) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) (- (pow lambda1 2) (pow lambda2 2)) (pow lambda1 2) 2 (pow lambda2 2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (sin (- (* 1/2 (PI)) lambda2)) (- (* 1/2 (PI)) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (sin (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow (cos lambda1) 3) 3 (pow (cos lambda2) 3) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (pow (sin lambda1) 3) (pow (sin lambda2) 3) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow (cos lambda1) 2) (pow (cos lambda2) 2) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (pow (sin lambda1) 2) (pow (sin lambda2) 2) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos (* 1/2 (PI))) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)) (pow (cos phi2) 2) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (* (cos phi1) (cos phi2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (pow (sin phi1) 2) (pow (sin phi2) 2) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) -1 (/ lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (pow phi2 6) 6 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) 1/24 (/ 1 (pow phi2 2)) (pow phi2 2) (/ 1 (pow phi2 6)) (+ 1/720 (/ 1/2 (pow phi2 4))) 1/720 (/ 1/2 (pow phi2 4)) (pow phi2 4) 4 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 lambda2)) (* lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (* -1 (/ (cos lambda2) lambda1)) (/ (cos lambda2) lambda1) (* -1/2 (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+ lambda1 lambda2) (* lambda1 (+ 1 (/ lambda2 lambda1))) (+ 1 (/ lambda2 lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* -1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* -1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow (cos (- lambda1 lambda2)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (pow (* (sin phi2) (sin phi1)) 2) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))
127.0ms	phi2	@	-inf	((* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (* 1/2 (PI)) 1/2 (PI) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos phi2) phi2 (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (* (sin phi1) (sin phi2)) (sin phi1) (sin phi2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (* (cos phi1) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* phi1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi1)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (cos lambda1) (* lambda2 (sin lambda1)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (cos (neg lambda2)) (neg lambda2) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) -1/2 (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) 1 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (sin phi2) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) (- (pow lambda1 2) (pow lambda2 2)) (pow lambda1 2) 2 (pow lambda2 2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (sin (- (* 1/2 (PI)) lambda2)) (- (* 1/2 (PI)) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (sin (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow (cos lambda1) 3) 3 (pow (cos lambda2) 3) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (pow (sin lambda1) 3) (pow (sin lambda2) 3) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow (cos lambda1) 2) (pow (cos lambda2) 2) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (pow (sin lambda1) 2) (pow (sin lambda2) 2) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos (* 1/2 (PI))) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)) (pow (cos phi2) 2) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (* (cos phi1) (cos phi2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (pow (sin phi1) 2) (pow (sin phi2) 2) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) -1 (/ lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (pow phi2 6) 6 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) 1/24 (/ 1 (pow phi2 2)) (pow phi2 2) (/ 1 (pow phi2 6)) (+ 1/720 (/ 1/2 (pow phi2 4))) 1/720 (/ 1/2 (pow phi2 4)) (pow phi2 4) 4 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 lambda2)) (* lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (* -1 (/ (cos lambda2) lambda1)) (/ (cos lambda2) lambda1) (* -1/2 (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+ lambda1 lambda2) (* lambda1 (+ 1 (/ lambda2 lambda1))) (+ 1 (/ lambda2 lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* -1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* -1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow (cos (- lambda1 lambda2)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (pow (* (sin phi2) (sin phi1)) 2) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))
108.0ms	lambda1	@	0	((* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (* 1/2 (PI)) 1/2 (PI) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos phi2) phi2 (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (* (sin phi1) (sin phi2)) (sin phi1) (sin phi2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (* (cos phi1) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* phi1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi1)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (cos lambda1) (* lambda2 (sin lambda1)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (cos (neg lambda2)) (neg lambda2) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) -1/2 (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) 1 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (sin phi2) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) (- (pow lambda1 2) (pow lambda2 2)) (pow lambda1 2) 2 (pow lambda2 2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (sin (- (* 1/2 (PI)) lambda2)) (- (* 1/2 (PI)) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (sin (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow (cos lambda1) 3) 3 (pow (cos lambda2) 3) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (pow (sin lambda1) 3) (pow (sin lambda2) 3) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow (cos lambda1) 2) (pow (cos lambda2) 2) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (pow (sin lambda1) 2) (pow (sin lambda2) 2) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos (* 1/2 (PI))) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)) (pow (cos phi2) 2) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (* (cos phi1) (cos phi2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (pow (sin phi1) 2) (pow (sin phi2) 2) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) -1 (/ lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (pow phi2 6) 6 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) 1/24 (/ 1 (pow phi2 2)) (pow phi2 2) (/ 1 (pow phi2 6)) (+ 1/720 (/ 1/2 (pow phi2 4))) 1/720 (/ 1/2 (pow phi2 4)) (pow phi2 4) 4 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 lambda2)) (* lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (* -1 (/ (cos lambda2) lambda1)) (/ (cos lambda2) lambda1) (* -1/2 (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+ lambda1 lambda2) (* lambda1 (+ 1 (/ lambda2 lambda1))) (+ 1 (/ lambda2 lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* -1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* -1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow (cos (- lambda1 lambda2)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (pow (* (sin phi2) (sin phi1)) 2) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))
103.0ms	phi2	@	0	((* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (* 1/2 (PI)) 1/2 (PI) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos phi2) phi2 (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (* (sin phi1) (sin phi2)) (sin phi1) (sin phi2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (* (cos phi1) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* phi1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi1)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (cos lambda1) (* lambda2 (sin lambda1)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (cos (neg lambda2)) (neg lambda2) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) -1/2 (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) 1 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (sin phi2) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) (- (pow lambda1 2) (pow lambda2 2)) (pow lambda1 2) 2 (pow lambda2 2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (sin (- (* 1/2 (PI)) lambda2)) (- (* 1/2 (PI)) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (sin (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow (cos lambda1) 3) 3 (pow (cos lambda2) 3) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (pow (sin lambda1) 3) (pow (sin lambda2) 3) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow (cos lambda1) 2) (pow (cos lambda2) 2) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (pow (sin lambda1) 2) (pow (sin lambda2) 2) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos (* 1/2 (PI))) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)) (pow (cos phi2) 2) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (* (cos phi1) (cos phi2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (pow (sin phi1) 2) (pow (sin phi2) 2) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) -1 (/ lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (pow phi2 6) 6 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) 1/24 (/ 1 (pow phi2 2)) (pow phi2 2) (/ 1 (pow phi2 6)) (+ 1/720 (/ 1/2 (pow phi2 4))) 1/720 (/ 1/2 (pow phi2 4)) (pow phi2 4) 4 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 lambda2)) (* lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (* -1 (/ (cos lambda2) lambda1)) (/ (cos lambda2) lambda1) (* -1/2 (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+ lambda1 lambda2) (* lambda1 (+ 1 (/ lambda2 lambda1))) (+ 1 (/ lambda2 lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* -1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* -1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow (cos (- lambda1 lambda2)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (pow (* (sin phi2) (sin phi1)) 2) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))
102.0ms	lambda2	@	inf	((* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (* 1/2 (PI)) 1/2 (PI) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (cos phi1) phi1 (* (cos phi2) (cos (- lambda1 lambda2))) (cos phi2) phi2 (cos (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (* (sin phi1) (sin phi2)) (sin phi1) (sin phi2) R (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (* (cos phi1) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* phi1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi1)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (cos lambda1) (* lambda2 (sin lambda1)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (cos (neg lambda2)) (neg lambda2) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) -1/2 (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) 1 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* (sin phi1) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (sin phi2) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) (- (pow lambda1 2) (pow lambda2 2)) (pow lambda1 2) 2 (pow lambda2 2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (sin (- (* 1/2 (PI)) lambda2)) (- (* 1/2 (PI)) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (sin (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow (cos lambda1) 3) 3 (pow (cos lambda2) 3) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (pow (sin lambda1) 3) (pow (sin lambda2) 3) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow (cos lambda1) 2) (pow (cos lambda2) 2) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (pow (sin lambda1) 2) (pow (sin lambda2) 2) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos (* 1/2 (PI))) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)) (pow (cos phi2) 2) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (* (cos phi1) (cos phi2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (pow (sin phi1) 2) (pow (sin phi2) 2) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (* phi2 phi2) -1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) -1 (/ lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (pow phi2 6) 6 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) 1/24 (/ 1 (pow phi2 2)) (pow phi2 2) (/ 1 (pow phi2 6)) (+ 1/720 (/ 1/2 (pow phi2 4))) 1/720 (/ 1/2 (pow phi2 4)) (pow phi2 4) 4 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 lambda2)) (* lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (* -1 (/ (cos lambda2) lambda1)) (/ (cos lambda2) lambda1) (* -1/2 (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+ lambda1 lambda2) (* lambda1 (+ 1 (/ lambda2 lambda1))) (+ 1 (/ lambda2 lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* -1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* -1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow (cos (- lambda1 lambda2)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (pow (* (sin phi2) (sin phi1)) 2) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))

rewrite1.6s (4.8%)

Memory

97.7MiB live, 2 569.4MiB allocated; 479ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	11850	177808
0	13098	177808
0	13098	173035

Stop Event

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

Counts

3 814 → 3 900

Calls

Call 1

Inputs
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
#s(literal 1/2 binary64)
(PI.f64)
(asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(cos.f64 phi1)
phi1
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(cos.f64 phi2)
phi2
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(sin.f64 phi1)
(sin.f64 phi2)
R
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1)))
(*.f64 phi2 (sin.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))
(.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))
(+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))
(/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2)))
(*.f64 phi1 (sin.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
(.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))
(+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))
(/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))
(*.f64 phi1 phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi1))
(cos.f64 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
(fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(cos.f64 lambda1)
(*.f64 lambda2 (sin.f64 lambda1))
(sin.f64 lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))
(.f64 #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)))))) (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 (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)))))
(cos.f64 (neg.f64 lambda2))
(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 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(literal -1/2 binary64)
(*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))
(sin.f64 (neg.f64 lambda2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))
(*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1))
(cos.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))
(*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))
(.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2))
(cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
(*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 lambda1 lambda2)
#s(literal 1 binary64)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2))))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
(fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))
(*.f64 (sin.f64 phi1) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
(*.f64 (sin.f64 phi2) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2))
#s(approx (cos phi1) #s(literal 1 binary64))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
(*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))
(cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))
(-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))
(pow.f64 lambda1 #s(literal 2 binary64))
#s(literal 2 binary64)
(pow.f64 lambda2 #s(literal 2 binary64))
(+.f64 lambda1 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
(-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)
(+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
(-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)
(+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(sin.f64 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(sin.f64 (-.f64 lambda1 lambda2))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
(fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))
(*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))
(pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))
(pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))
(-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))
(*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.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)))))
(sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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))))
(fma.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)))
(.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 (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 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
(+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
(sin.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
(-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(acos.f64 #s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
(.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))
(pow.f64 (cos.f64 phi2) #s(literal 2 binary64))
(-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
(.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
(-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
(.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (sin.f64 phi2) #s(literal 2 binary64))
(pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))
(/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))
#s(approx (sin phi1) phi1)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1))
#s(literal 1/120 binary64)
(*.f64 phi1 phi1)
#s(literal 1/6 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2))
#s(approx (sin phi2) phi2)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64))
(*.f64 phi2 phi2)
#s(literal -1/6 binary64)
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2)) #s(literal 1/6 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64)))
#s(approx (cos phi2) #s(literal 1 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1))
(cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))
#s(literal -1 binary64)
(/.f64 lambda2 lambda1)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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 #s(literal 1/2 binary64) (+.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 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(*.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))))
#s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
(*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))
(pow.f64 phi2 #s(literal 6 binary64))
#s(literal 6 binary64)
(-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))
(fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(literal 1/24 binary64)
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(pow.f64 phi2 #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))
(+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(literal 1/720 binary64)
(/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))
(pow.f64 phi2 #s(literal 4 binary64))
#s(literal 4 binary64)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(.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 (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(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 (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
(*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))
(+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))
(/.f64 (cos.f64 lambda1) 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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(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 (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
(+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))
(*.f64 lambda1 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)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) R)
(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 lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))
(.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1)
(fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))
(/.f64 (cos.f64 lambda2) lambda1)
(*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))
(-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))
(*.f64 lambda1 lambda1)
(*.f64 lambda2 lambda2)
#s(approx (+ lambda1 lambda2) lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
(+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))
(*.f64 #s(literal -1 binary64) lambda1)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
(*.f64 #s(literal -1 binary64) lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
(.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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
(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 lambda1) (cos.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) #s(literal 3 binary64))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.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)))
(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))
(fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)))
(sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))
(.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
(.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx R #s(hole binary64 R))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) #s(hole binary64 (* R (acos (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* -1 (/ (* lambda1 (* (cos phi1) (sin (neg lambda2)))) phi2)) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda1 (+ (* -1 (/ (* (cos phi1) (sin (neg lambda2))) phi2)) (* -1/2 (/ (* lambda1 (* (cos phi1) (cos (neg lambda2)))) phi2)))) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda1 (+ (* -1 (/ (* (cos phi1) (sin (neg lambda2))) phi2)) (* lambda1 (+ (* -1/2 (/ (* (cos phi1) (cos (neg lambda2))) phi2)) (* 1/6 (/ (* lambda1 (* (cos phi1) (sin (neg lambda2)))) phi2)))))) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (/ (* (cos phi1) (cos (neg lambda2))) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* -1 (/ (* lambda1 (* (cos phi1) (sin (neg lambda2)))) phi2)) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (* (cos phi1) (sin (neg lambda2))) phi2)) (* -1/2 (/ (* lambda1 (* (cos phi1) (cos (neg lambda2)))) phi2)))) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (* (cos phi1) (sin (neg lambda2))) phi2)) (* lambda1 (+ (* -1/2 (/ (* (cos phi1) (cos (neg lambda2))) phi2)) (* 1/6 (/ (* lambda1 (* (cos phi1) (sin (neg lambda2)))) phi2)))))) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (neg lambda2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* -1/2 (/ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) phi1)))) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* lambda1 (+ (* -1/2 (/ (* (cos phi2) (cos (neg lambda2))) phi1)) (* 1/6 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)))))) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (neg lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* -1 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* -1/2 (/ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) phi1)))) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* lambda1 (+ (* -1/2 (/ (* (cos phi2) (cos (neg lambda2))) phi1)) (* 1/6 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)))))) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (* phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (+ (* -1 (* lambda1 (sin (neg lambda2)))) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (+ (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (+ (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (* phi1 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 1))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (cos lambda1) #s(hole binary64 1))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/24 (pow lambda1 2)) 1/2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/24 (* -1/720 (pow lambda1 2)))) 1/2)))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/6 (* (pow lambda1 2) lambda2))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* 1/120 (* (pow lambda1 2) lambda2))))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) lambda2)) (* 1/120 lambda2)))))))))
#s(approx (sin lambda1) #s(hole binary64 lambda1))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* 1/120 (pow lambda1 2)) 1/6))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/120 (* -1/5040 (pow lambda1 2)))) 1/6))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (sin (neg lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (* -1 lambda2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (* -1 lambda2))))) (* (cos phi2) (cos (* -1 lambda2))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (* -1 lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (* -1 lambda2))))))) (* (cos phi2) (cos (* -1 lambda2))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (* -1 lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (* -1 lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (* -1 lambda2))))))))) (* (cos phi2) (cos (* -1 lambda2))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* -1 (* lambda1 (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (* -1 lambda2))) (* 1/6 (* lambda1 (sin (* -1 lambda2)))))) (sin (* -1 lambda2)))))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) #s(hole binary64 (* -1 (pow lambda2 2))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) #s(hole binary64 (- (pow lambda1 2) (pow lambda2 2))))
#s(approx (pow lambda1 2) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda2))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (+ lambda1 lambda2)))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2)))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2))))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) #s(hole binary64 (acos (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 3))) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi1) (sin lambda2))))) (* (cos lambda2) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (cos phi1))) (* lambda1 (- (/ (* (cos phi1) (pow (sin lambda2) 3)) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi1) (sin lambda2))))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (* (pow (cos lambda2) 3) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (* (pow (cos lambda2) 3) (cos phi1)))) (* (pow (cos lambda2) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (* (pow (cos lambda2) 3) (cos phi1))) (* lambda1 (* (cos phi1) (pow (sin lambda2) 3))))) (* (pow (cos lambda2) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (* (pow (cos lambda2) 3) (cos phi1))) (* lambda1 (+ (* 7/8 (* lambda1 (* (pow (cos lambda2) 3) (cos phi1)))) (* (cos phi1) (pow (sin lambda2) 3)))))) (* (pow (cos lambda2) 3) (cos phi1)))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (pow (sin lambda2) 3)))) (pow (cos lambda2) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (+ (* 7/8 (* lambda1 (pow (cos lambda2) 3))) (pow (sin lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 1))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (+ 1 (* -3/2 (pow lambda1 2)))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 7/8 (pow lambda1 2)) 3/2)))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 7/8 (* -61/240 (pow lambda1 2)))) 3/2)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (pow (sin lambda2) 3))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (* (pow lambda1 2) (pow (sin lambda2) 3))) (pow (sin lambda2) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* 13/120 (* (pow lambda1 2) (pow (sin lambda2) 3))))) (pow (sin lambda2) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* (pow lambda1 2) (+ (* -41/3024 (* (pow lambda1 2) (pow (sin lambda2) 3))) (* 13/120 (pow (sin lambda2) 3)))))) (pow (sin lambda2) 3)))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (pow lambda1 3)))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* -1/2 (pow lambda1 2))))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* (pow lambda1 2) (- (* 13/120 (pow lambda1 2)) 1/2))))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 13/120 (* -41/3024 (pow lambda1 2)))) 1/2))))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (pow (cos lambda2) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (pow (cos lambda2) 2)) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 1/3 (pow (cos lambda2) 2)))) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (pow (cos lambda2) 2)) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (+ (* 1/3 (pow (cos lambda2) 2)) (* (pow lambda1 2) (+ (* -2/45 (pow (cos lambda2) 2)) (* 2/45 (pow (sin lambda2) 2))))))) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 1))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* -1 (pow lambda1 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/3 (pow lambda1 2)) 1)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/3 (* -2/45 (pow lambda1 2)))) 1)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (pow (sin lambda2) 2))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/3 (* (pow lambda1 2) (pow (sin lambda2) 2))) (pow (sin lambda2) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 2/45 (* (pow lambda1 2) (pow (sin lambda2) 2))))) (pow (sin lambda2) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* (pow lambda1 2) (+ (* -1/315 (* (pow lambda1 2) (pow (sin lambda2) 2))) (* 2/45 (pow (sin lambda2) 2)))))) (pow (sin lambda2) 2)))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (pow lambda1 2)))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1/3 (pow lambda1 2))))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* (pow lambda1 2) (- (* 2/45 (pow lambda1 2)) 1/3))))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 2/45 (* -1/315 (pow lambda1 2)))) 1/3))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (* 1/12 (* (cos lambda2) (sin lambda2)))))))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (+ (* 1/12 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/144 (* (cos lambda2) (sin lambda2))) (+ (* -1/240 (* (cos lambda2) (sin lambda2))) (+ (* -1/720 (* (cos lambda2) (sin lambda2))) (* -1/5040 (* (cos lambda2) (sin lambda2))))))))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (cos lambda2) (sin lambda2)))) (* (cos lambda2) (sin lambda2))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* 1/120 (* (pow lambda1 2) (* (cos lambda2) (sin lambda2))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (cos lambda2) (sin lambda2)))) (* 1/120 (* (cos lambda2) (sin lambda2)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/24 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* 1/24 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* 1/24 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))))) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))) (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/24 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))) (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/4 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/4 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* 1/48 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/4 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (pow lambda1 2) (+ (* -1/1440 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/48 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (* -1/2 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (* (pow lambda1 2) (+ (* -1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* 1/24 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (* (pow lambda1 2) (+ (* -1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/24 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* lambda1 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2)))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda1 (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* lambda1 (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda1 (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* lambda1 (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (* lambda1 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (+ (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* (pow lambda1 2) (- (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 2 (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)))) (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (+ (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* (pow lambda1 2) (- (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 2 (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (+ (* (pow lambda1 2) (- (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 2 (- (+ (* -1/144 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/240 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/5040 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))) (+ (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/360 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)) (/ (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4))))) (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* 2 (/ (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda1 (+ (* 2 (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda1 (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (+ (* 2 (* (pow lambda1 2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda1 (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (+ (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* (pow lambda1 2) (+ (* 2 (* (pow lambda1 2) (- (+ (* -1/144 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/240 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/5040 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))))) (* 2 (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* -1/144 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/240 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/5040 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/2 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/2 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* 1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/12 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/2 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* 1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/12 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/144 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/240 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/720 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/120 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* 1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (pow (cos phi2) 2))) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (pow (cos phi2) 2)) (* 1/120 (* (pow lambda1 2) (pow (cos phi2) 2))))) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (pow (cos phi2) 2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (pow (cos phi2) 2))) (* 1/120 (pow (cos phi2) 2)))))) (pow (cos phi2) 2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* (pow lambda1 2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* (pow lambda1 2) (- (+ (* (pow lambda1 2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/360 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)) (/ (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (pow lambda1 2) (+ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (pow lambda1 2) (+ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (* (pow lambda1 2) (+ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (pow lambda1 2) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (pow lambda1 2) (+ (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow lambda1 2) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))))))))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (+ (* -1 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -2/45 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* -1 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -2/45 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* -1 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (+ (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/360 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (* 1/3 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* 1/3 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (* -2/45 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* 1/3 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (* -1 (* (pow lambda1 2) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (* (pow lambda1 2) (- (* -1 (* (pow lambda1 2) (+ (* -1/720 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (+ (* 1/48 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda1)))
#s(approx (* -1 (/ lambda2 lambda1)) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (/ lambda2 lambda1) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow lambda1 2) (cos lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow lambda1 2) (cos lambda2))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 1))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (/ 1 lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ lambda1 (/ 1 lambda2))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/2 (/ lambda1 lambda2)))) (/ 1 lambda2))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* lambda1 (- (* -1/6 lambda1) (* 1/2 (/ 1 lambda2)))))) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* -1/2 (/ (pow lambda1 2) lambda2)) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* (pow lambda1 2) (- (* 1/24 (/ (pow lambda1 2) lambda2)) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* (pow lambda1 2) (- (* (pow lambda1 2) (+ (* -1/720 (/ (pow lambda1 2) lambda2)) (* 1/24 (/ 1 lambda2)))) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 1))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (* lambda1 lambda2) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (cos lambda2)))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (/ (cos lambda2) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (/ (+ (cos lambda2) (* lambda1 (sin lambda2))) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (/ (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (cos lambda2) (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (cos lambda2)) (* -1 (* lambda1 (sin lambda2)))) (pow lambda1 2))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (* -1 (/ (cos lambda2) lambda1))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (/ (+ (* -1 (cos lambda2)) (* -1 (* lambda1 (sin lambda2)))) lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (* -1 (/ (cos lambda2) lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (/ (cos lambda2) lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* -1 (* lambda1 (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (* -1 lambda2))) (* 1/6 (* lambda1 (sin (* -1 lambda2)))))) (sin (* -1 lambda2)))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* -1 (pow lambda2 2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (- (pow lambda1 2) (pow lambda2 2))))
#s(approx (* lambda1 lambda1) #s(hole binary64 (pow lambda1 2)))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 lambda2))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (+ lambda1 lambda2)))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (/ (+ lambda1 lambda2) lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (* -1 lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 3))) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (cos lambda2)))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (+ (* -3/2 (cos lambda2)) (* lambda1 (- (/ (pow (sin lambda2) 3) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (cos lambda2))) (+ (* -1 (/ (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))) (cos lambda2))) (/ (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (pow (cos lambda2) 2))))))) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (pow (sin lambda2) 3)))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (+ (* 7/8 (* lambda1 (pow (cos lambda2) 3))) (pow (sin lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* 7/8 (* (pow lambda1 2) (pow (cos lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* (pow lambda1 2) (+ (* -61/240 (* (pow lambda1 2) (pow (cos lambda2) 3))) (* 7/8 (pow (cos lambda2) 3)))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (pow (sin lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (* (pow lambda1 2) (pow (sin lambda2) 3))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* 13/120 (* (pow lambda1 2) (pow (sin lambda2) 3))))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* (pow lambda1 2) (+ (* -41/3024 (* (pow lambda1 2) (pow (sin lambda2) 3))) (* 13/120 (pow (sin lambda2) 3)))))) (pow (sin lambda2) 3)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* lambda1 (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (pow (sin lambda2) 2)) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* lambda1 (- (* -1/3 (* lambda1 (pow (sin lambda2) 2))) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (pow (sin lambda2) 2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/3 (* (pow lambda1 2) (pow (sin lambda2) 2))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 2/45 (* (pow lambda1 2) (pow (sin lambda2) 2))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* (pow lambda1 2) (+ (* -1/315 (* (pow lambda1 2) (pow (sin lambda2) 2))) (* 2/45 (pow (sin lambda2) 2)))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (* 1/12 (* (cos lambda2) (sin lambda2)))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (+ (* 1/12 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/144 (* (cos lambda2) (sin lambda2))) (+ (* -1/240 (* (cos lambda2) (sin lambda2))) (+ (* -1/720 (* (cos lambda2) (sin lambda2))) (* -1/5040 (* (cos lambda2) (sin lambda2))))))))))))))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (* (pow (cos phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg lambda2)) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (+ (* lambda1 (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (sin (neg lambda2)) 2)))))) (pow (cos (neg lambda2)) 2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (+ (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (+ (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (- (+ (* lambda1 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos lambda1) #s(hole binary64 (cos lambda1)))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (sin lambda1) #s(hole binary64 (sin lambda1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* -1/2 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2))) (/ (sin (neg lambda2)) lambda1)))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 lambda1))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 lambda1))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) #s(hole binary64 (pow lambda1 2)))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (pow (sin lambda1) 3)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (pow (sin lambda1) 2)))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* (pow (cos phi2) 2) (sin lambda1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (+ 1 (* -1 (/ lambda2 lambda1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ (sin lambda1) (/ (cos lambda1) lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (/ (cos lambda1) lambda2)))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ lambda2 (/ 1 lambda1)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (* -1/2 (cos lambda2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (sin lambda2) lambda1))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 lambda1))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (pow lambda1 2)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda1 (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 1))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (+ 1 (/ lambda2 lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (pow (cos lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (- (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (/ (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))) phi2)))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))) phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg (+ lambda2 (* -1 lambda1)))) (* phi1 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (sin (neg lambda2)) (* -1 (/ (cos (neg lambda2)) lambda1))) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (cos (neg lambda2))) (/ (sin (neg lambda2)) lambda1))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ lambda2 lambda1)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda1 (- (* -1/2 (/ (PI) lambda1)) 1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 lambda2) (/ 1 lambda1))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (+ (sin lambda2) (/ (cos lambda2) lambda1)) lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ lambda2 lambda1)) 1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI))))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (/ (* lambda2 (* (cos phi1) (sin lambda1))) phi2) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi1))) phi2)) (/ (* (cos phi1) (sin lambda1)) phi2))) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) phi2)) (* -1/6 (/ (* lambda2 (* (cos phi1) (sin lambda1))) phi2)))) (/ (* (cos phi1) (sin lambda1)) phi2))) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (/ (* (cos lambda1) (cos phi1)) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (/ (* lambda2 (* (cos phi1) (sin lambda1))) phi2) (/ (* (cos lambda1) (cos phi1)) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi1))) phi2)) (/ (* (cos phi1) (sin lambda1)) phi2))) (/ (* (cos lambda1) (cos phi1)) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) phi2)) (* -1/6 (/ (* lambda2 (* (cos phi1) (sin lambda1))) phi2)))) (/ (* (cos phi1) (sin lambda1)) phi2))) (/ (* (cos lambda1) (cos phi1)) phi2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) phi1)) (* -1/6 (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1)))) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos lambda1) (cos phi2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) phi1)) (* -1/6 (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1)))) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (* phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))) (* phi1 phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow lambda2 2) (cos phi1))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow lambda2 2) (cos phi1))))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (cos lambda2) #s(hole binary64 1))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (* phi2 (sin phi1)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow lambda2 2) (cos phi1))) (* phi2 (sin phi1))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (+ (* phi2 (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow lambda2 2) (cos phi1)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (+ (* phi2 (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi1))) (* 1/24 (cos phi1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 1))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* 1/4 (* (pow lambda1 2) lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2)))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* lambda2 (+ (* -1/6 lambda2) (* 1/4 lambda1))))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* 1/4 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/48 (* lambda1 (pow lambda2 2))) (* 1/4 lambda1))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* 1/4 lambda1) (* (pow lambda2 2) (+ (* -1/48 lambda1) (* 1/1440 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) #s(hole binary64 (+ (* -1 (pow lambda2 2)) (pow lambda1 2))))
#s(approx (pow lambda2 2) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI))))))) (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (PI))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (* 1/2 (PI))))))) (+ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (* 1/2 (PI))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* -1/2 (* lambda2 (* (cos phi2) (sin (* 1/2 (PI)))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* 1/6 (* lambda2 (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* lambda2 (cos (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* lambda2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda2 (+ (* -1 (cos (* 1/2 (PI)))) (* lambda2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* lambda2 (cos (* 1/2 (PI))))))))))))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (+ (* -1 lambda2) (* 1/2 (PI)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (sin lambda2) #s(hole binary64 lambda2))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* -1/6 (pow lambda2 2))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* 1/120 (pow lambda2 2)) 1/6))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/120 (* -1/5040 (pow lambda2 2)))) 1/6))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* lambda2 (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos lambda1) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (* 1/2 (PI)))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 3))) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi1) (sin lambda1))))) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (cos phi1))) (* lambda2 (- (/ (* (cos phi1) (pow (sin lambda1) 3)) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi1) (sin lambda1))))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (* (pow (cos lambda1) 3) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (* (pow (cos lambda1) 3) (cos phi1)))) (* (pow (cos lambda1) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (* (pow (cos lambda1) 3) (cos phi1))) (* lambda2 (* (cos phi1) (pow (sin lambda1) 3))))) (* (pow (cos lambda1) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (* (pow (cos lambda1) 3) (cos phi1))) (* lambda2 (+ (* 7/8 (* lambda2 (* (pow (cos lambda1) 3) (cos phi1)))) (* (cos phi1) (pow (sin lambda1) 3)))))) (* (pow (cos lambda1) 3) (cos phi1)))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (pow (sin lambda1) 3)))) (pow (cos lambda1) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (+ (* 7/8 (* lambda2 (pow (cos lambda1) 3))) (pow (sin lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 1))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (+ 1 (* -3/2 (pow lambda2 2)))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 7/8 (pow lambda2 2)) 3/2)))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 7/8 (* -61/240 (pow lambda2 2)))) 3/2)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (pow (sin lambda1) 3))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (+ (* -1/2 (* (pow lambda2 2) (pow (sin lambda1) 3))) (pow (sin lambda1) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* 13/120 (* (pow lambda2 2) (pow (sin lambda1) 3))))) (pow (sin lambda1) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* (pow lambda2 2) (+ (* -41/3024 (* (pow lambda2 2) (pow (sin lambda1) 3))) (* 13/120 (pow (sin lambda1) 3)))))) (pow (sin lambda1) 3)))))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (pow lambda2 3)))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (* (pow lambda2 3) (+ 1 (* -1/2 (pow lambda2 2))))))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (* (pow lambda2 3) (+ 1 (* (pow lambda2 2) (- (* 13/120 (pow lambda2 2)) 1/2))))))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (* (pow lambda2 3) (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 13/120 (* -41/3024 (pow lambda2 2)))) 1/2))))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (pow (cos lambda1) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -1 (pow (cos lambda1) 2)) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 1/3 (pow (cos lambda1) 2)))) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -1 (pow (cos lambda1) 2)) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (+ (* 1/3 (pow (cos lambda1) 2)) (* (pow lambda2 2) (+ (* -2/45 (pow (cos lambda1) 2)) (* 2/45 (pow (sin lambda1) 2))))))) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 1))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (+ 1 (* -1 (pow lambda2 2)))))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/3 (pow lambda2 2)) 1)))))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/3 (* -2/45 (pow lambda2 2)))) 1)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (pow (sin lambda1) 2))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/3 (* (pow lambda2 2) (pow (sin lambda1) 2))) (pow (sin lambda1) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 2/45 (* (pow lambda2 2) (pow (sin lambda1) 2))))) (pow (sin lambda1) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* (pow lambda2 2) (+ (* -1/315 (* (pow lambda2 2) (pow (sin lambda1) 2))) (* 2/45 (pow (sin lambda1) 2)))))) (pow (sin lambda1) 2)))))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (pow lambda2 2)))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -1/3 (pow lambda2 2))))))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* (pow lambda2 2) (- (* 2/45 (pow lambda2 2)) 1/3))))))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 2/45 (* -1/315 (pow lambda2 2)))) 1/3))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (* (cos lambda1) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (+ (* 1/12 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* 1/24 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* -1/2 (* (pow lambda2 2) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow lambda2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* 1/24 (* (pow lambda2 2) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow lambda2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (sin (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))) (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow lambda2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow lambda2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (/ (cos lambda1) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (/ (+ (cos lambda1) (* lambda2 (sin lambda1))) lambda2)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* lambda1 lambda2) (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* lambda2 (+ lambda1 (* (pow lambda1 2) (* lambda2 (- 1/4 (* 1/2 (/ 1 (pow lambda1 2)))))))) (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* lambda2 (+ lambda1 (* lambda2 (+ (* -1/6 (* lambda1 lambda2)) (* (pow lambda1 2) (- 1/4 (* 1/2 (/ 1 (pow lambda1 2))))))))) (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (/ 1 (pow lambda1 2)) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (+ (/ 1 (pow lambda1 2)) (/ lambda2 lambda1)) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (- 1/4 (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))) (/ 1 (pow lambda1 2))) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (- (+ 1/4 (* -1/6 (/ lambda2 lambda1))) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))) (/ 1 (pow lambda1 2))) 1/2)))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (/ -1 (pow lambda1 2))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (- (* -1 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (- (* lambda2 (- (* 1/2 (/ lambda2 (pow lambda1 2))) (/ 1 lambda1))) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (- (* lambda2 (- (* lambda2 (+ (* 1/6 (/ lambda2 lambda1)) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))) (/ 1 (pow lambda1 2)))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (/ -1 lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (- (* -1 lambda2) (/ 1 lambda1))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (/ lambda2 lambda1)) 1)) (/ 1 lambda1))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (+ (* 1/6 lambda2) (* 1/2 (/ 1 lambda1)))) 1)) (/ 1 lambda1))))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (/ -1 lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (- (* 1/2 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1))))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (- (* (pow lambda2 2) (+ (* -1/24 (/ (pow lambda2 2) lambda1)) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (- (* (pow lambda2 2) (+ (* (pow lambda2 2) (- (* 1/720 (/ (pow lambda2 2) lambda1)) (* 1/24 (/ 1 lambda1)))) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (/ 1 lambda1)))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (+ (* -1/2 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (+ (* (pow lambda2 2) (- (* 1/24 (/ (pow lambda2 2) lambda1)) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (+ (* (pow lambda2 2) (- (* (pow lambda2 2) (+ (* -1/720 (/ (pow lambda2 2) lambda1)) (* 1/24 (/ 1 lambda1)))) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 -1/2))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* 1/4 (pow lambda2 2)) 1/2)))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* (pow lambda2 2) (+ 1/4 (* -1/48 (pow lambda2 2)))) 1/2)))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* (pow lambda2 2) (+ 1/4 (* (pow lambda2 2) (- (* 1/1440 (pow lambda2 2)) 1/48)))) 1/2)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (+ (* -1 (pow lambda2 2)) (pow lambda1 2))))
#s(approx (* lambda2 lambda2) #s(hole binary64 (pow lambda2 2)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* -1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 3))) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (cos lambda1)))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (+ (* -3/2 (cos lambda1)) (* lambda2 (- (/ (pow (sin lambda1) 3) (pow (cos lambda1) 2)) (+ (* -1 (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (cos lambda1))) (/ (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (pow (cos lambda1) 2))))))) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (pow (sin lambda1) 3)))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (+ (* 7/8 (* lambda2 (pow (cos lambda1) 3))) (pow (sin lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* 7/8 (* (pow lambda2 2) (pow (cos lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* (pow lambda2 2) (+ (* -61/240 (* (pow lambda2 2) (pow (cos lambda1) 3))) (* 7/8 (pow (cos lambda1) 3)))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (pow (sin lambda1) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* -1/2 (* (pow lambda2 2) (pow (sin lambda1) 3))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* 13/120 (* (pow lambda2 2) (pow (sin lambda1) 3))))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* (pow lambda2 2) (+ (* -41/3024 (* (pow lambda2 2) (pow (sin lambda1) 3))) (* 13/120 (pow (sin lambda1) 3)))))) (pow (sin lambda1) 3)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* lambda2 (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (pow (sin lambda1) 2)) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* lambda2 (- (* -1/3 (* lambda2 (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (pow (sin lambda1) 2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/3 (* (pow lambda2 2) (pow (sin lambda1) 2))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 2/45 (* (pow lambda2 2) (pow (sin lambda1) 2))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* (pow lambda2 2) (+ (* -1/315 (* (pow lambda2 2) (pow (sin lambda1) 2))) (* 2/45 (pow (sin lambda1) 2)))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (* (cos lambda1) (sin lambda1)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* lambda2 (* (pow (cos phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* (pow (cos phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (pow (sin lambda1) 2)))))) (pow (cos lambda1) 2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* lambda2 (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (+ (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (+ (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (- (+ (* lambda2 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* lambda2 (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos lambda1) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (* 1/2 (PI)))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) #s(hole binary64 (* (pow lambda2 2) (- (/ (pow lambda1 2) (pow lambda2 2)) 1))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda2 (+ 1 (/ lambda1 lambda2)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (* lambda2 (- (* 1/2 (/ (PI) lambda2)) 1))))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (pow (sin lambda2) 3)))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (pow (sin lambda2) 2)))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (+ (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda2 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (/ 1 lambda2)))))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (* -1/2 (cos lambda2))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda2 2) (- (/ (pow lambda1 2) (pow lambda2 2)) 1))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda2 (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (* lambda2 (+ (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (/ (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))) phi2)))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))) phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (+ lambda1 (* -1 lambda2))) (* phi1 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (* -1 lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (* -1 lambda2)))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ lambda1 lambda2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda2 (- (* -1/2 (/ (PI) lambda2)) 1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ (* -1 lambda2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) #s(hole binary64 (sin (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1/2 (/ (PI) lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos (* -1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (* -1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (* -1 (/ (- (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) lambda2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (* -1 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 lambda1) (/ 1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ lambda1 lambda2)) 1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (+ lambda1 (* -1 lambda2))) 2)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 phi2)))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 (+ phi2 (* -1/6 (* (pow phi1 2) phi2))))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* 1/120 (* (pow phi1 2) phi2))))))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) phi2)) (* 1/120 phi2)))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ phi1 (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (* phi1 (+ 1 (* -1/2 (/ (* phi1 (cos (- lambda1 lambda2))) phi2)))) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (* phi1 (+ 1 (* phi1 (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi2)) (* -1/6 phi1))))) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi1 2) (cos (- lambda1 lambda2))) phi2)) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi2)) (* 1/24 (/ (* (pow phi1 2) (cos (- lambda1 lambda2))) phi2)))) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi2)) (* (pow phi1 2) (+ (* -1/720 (/ (* (pow phi1 2) (cos (- lambda1 lambda2))) phi2)) (* 1/24 (/ (cos (- lambda1 lambda2)) phi2)))))) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (/ (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* phi1 phi2) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda2) (cos phi2)))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow phi1 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (* (pow phi1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi1 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (* (pow phi1 2) (+ (* -1/2 (cos lambda2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos lambda2) (* phi1 phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos lambda2) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos lambda2))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos lambda2) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 phi2)))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 (+ phi2 (* -1/6 (* (pow phi1 2) phi2))))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* 1/120 (* (pow phi1 2) phi2))))))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) phi2)) (* 1/120 phi2)))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/2 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/24 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (/ (* phi1 (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* -1/6 (* phi1 (sin phi2))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi1 2) (+ (* -1/720 (/ (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (* 1/24 (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (* 1/24 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda2) (cos phi2)))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1/2 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/24 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/24 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* -1/2 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* 1/24 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (sin (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/6 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi1 (cos (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (+ (* -1 phi1) (* 1/2 (PI)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))) (* -1/2 (* phi1 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/6 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI))))))))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2))))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* -1/6 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (cos (* 1/2 (PI))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI)))))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (+ (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (+ (* phi1 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* 2 (sin (* 1/2 (PI))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* 2 (sin (* 1/2 (PI)))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* 2 (sin (* 1/2 (PI)))) (* phi1 (+ (cos (* 1/2 (PI))) (+ (* -1 (cos (* 1/2 (PI)))) (* -1 (* phi1 (sin (* 1/2 (PI)))))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* 2 (sin (* 1/2 (PI)))) (* phi1 (+ (cos (* 1/2 (PI))) (+ (* -1 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1 (sin (* 1/2 (PI)))) (* phi1 (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI))))))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* 1/2 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos lambda1) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1 (* phi1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* phi1 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (* (cos lambda1) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (* 2 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* phi1 (- (+ (* -1 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2)))))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* phi1 (- (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (+ (* phi1 (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2))))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* 2 (* (cos phi2) (sin lambda1)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (* 2 (/ (* phi1 (* (sin lambda1) (sin phi2))) (cos lambda1))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (* 2 (* phi1 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1))))))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (+ (* -2 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))))) (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (cos phi2) (sin lambda1)) (/ (* phi1 (* (sin lambda1) (sin phi2))) (cos lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))))) (* -1 (* (cos phi2) (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow phi1 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* 1/3 (* (pow phi1 2) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow phi1 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))) (* 1/3 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))))))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* (pow (cos phi2) 2) (sin lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (sin lambda1))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (sin lambda1))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* 1/3 (* (pow (cos phi2) 2) (sin lambda1))))))) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 1))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (- (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))) (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* 1/24 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/24 (* (cos lambda1) (cos phi2))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* 2 (/ (* phi1 (* (sin lambda1) (sin phi2))) (cos lambda1))) (* (cos phi2) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2)))))) (+ (* -1/720 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* 1/24 (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (* (cos phi2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (+ (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))) (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi1 2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow phi1 2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow phi1 2) (+ (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2)))) (* (pow phi1 2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (- (+ (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2))))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (pow (cos phi2) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (cos phi2) 2))) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos phi2) 2)) (* 1/3 (* (pow phi1 2) (pow (cos phi2) 2))))) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos phi2) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (cos phi2) 2))) (* 1/3 (pow (cos phi2) 2)))))) (pow (cos phi2) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (pow (sin phi2) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* 2/45 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (sin phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))) (pow (sin phi2) 2)))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* -2 (* phi1 (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi1 (+ (* -2 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* phi1 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi1 (+ (* -2 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* phi1 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (+ (* phi1 (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (pow (sin phi2) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (* (cos lambda1) (cos phi2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow phi1 2) (pow (sin phi2) 2)) (* (cos lambda1) (cos phi2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (/ (* phi1 (pow (sin phi2) 3)) (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (- (* phi1 (- (* -1/3 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1 (/ (pow (sin phi2) 4) (* (pow (cos lambda1) 3) (pow (cos phi2) 3)))) (* -1/2 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))))) (* -1 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1/3 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1 (/ (pow (sin phi2) 4) (* (pow (cos lambda1) 3) (pow (cos phi2) 3)))) (* -1/2 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* 1/6 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))))) (* -1/3 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))) (+ (* -1 (/ (pow (sin phi2) 4) (* (pow (cos lambda1) 3) (pow (cos phi2) 3)))) (* -1/2 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))))) (* -1 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 phi1))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6)))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi1 2)) 1/6)))
#s(approx (* 1/120 (* phi1 phi1)) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos lambda2) (cos phi2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* 1/24 (* (pow phi1 2) (* (cos lambda2) (cos phi2)))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos lambda2) (cos phi2)))) (* 1/24 (* (cos lambda2) (cos phi2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/6 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))) (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2)))))) (* 1/2 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* 1/2 (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))) (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/2 (* phi1 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1/2 (* phi1 (sin (* 1/2 (PI))))) (* 1/2 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* 1/2 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/2 (* phi1 (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI))))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* 1/24 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi1 2) (+ (* -1/720 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* 2 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (+ (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (* -2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (sin phi2) 2))))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* 1/3 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (pow (cos (- lambda1 lambda2)) 2)))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* phi1 (- (/ (pow (sin phi2) 3) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* -1 (/ (* (sin phi2) (- (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (* (sin phi2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi1 (pow (sin phi2) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi1 (+ (* 7/8 (* phi1 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (pow (sin phi2) 3))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 7/8 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 7/8 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (sin phi2) 3)) (* 13/120 (* (pow phi1 2) (pow (sin phi2) 3))))) (pow (sin phi2) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (sin phi2) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (sin phi2) 3))) (* 13/120 (pow (sin phi2) 3)))))) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (pow (sin phi2) 2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* phi1 (- (* -1/3 (* phi1 (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* 2/45 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (sin phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))) (pow (sin phi2) 2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/240 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/720 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/5040 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))))))))))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/24 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (sin phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* phi1 (+ phi2 (/ (cos (- lambda1 lambda2)) phi1)))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (sin phi1) phi2) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) 1))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 phi1))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 phi1))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow (sin phi1) 2) (pow (sin phi2) 2))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* 1/120 (pow phi1 5))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 5) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 5) (- (+ 1/120 (/ 1 (pow phi1 4))) (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* 1/120 (pow phi1 4))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 4) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 4) (- (+ 1/120 (/ 1 (pow phi1 4))) (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 2) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (sin phi2) 2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 phi2) (* -1 (/ (cos (- lambda1 lambda2)) phi1)))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (sin (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1/2 (/ (PI) phi1)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 5) (- (* 1/6 (/ 1 (pow phi1 2))) 1/120)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 5) (- (* 1/6 (/ 1 (pow phi1 2))) (+ 1/120 (/ 1 (pow phi1 4))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* 1/2 (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (/ (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi1 phi2)))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi2 (+ phi1 (* -1/6 (* phi1 (pow phi2 2)))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* 1/120 (* phi1 (pow phi2 2)))))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* (pow phi2 2) (+ (* -1/5040 (* phi1 (pow phi2 2))) (* 1/120 phi1)))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ phi2 (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (* phi2 (+ 1 (* -1/2 (/ (* phi2 (cos (- lambda1 lambda2))) phi1)))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (* phi2 (+ 1 (* phi2 (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/6 phi2))))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (cos (- lambda1 lambda2))) phi1)) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi1)) (* 1/24 (/ (* (pow phi2 2) (cos (- lambda1 lambda2))) phi1)))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi1)) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (cos (- lambda1 lambda2))) phi1)) (* 1/24 (/ (cos (- lambda1 lambda2)) phi1)))))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda2) (cos phi1)))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow phi2 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi1 phi2)))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* -1/6 (* phi1 (pow phi2 2)))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* 1/120 (* phi1 (pow phi2 2)))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* (pow phi2 2) (+ (* -1/5040 (* phi1 (pow phi2 2))) (* 1/120 phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (* -1/2 (* (pow phi2 2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* -1/2 (* (pow phi2 2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* 1/24 (* (pow phi2 2) (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (* 1/2 (PI)) lambda2)))) (* 1/24 (sin (- (* 1/2 (PI)) lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ phi1 (* -1/2 (* phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi1 phi2)))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/24 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (/ (* phi2 (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* -1/6 (* phi2 (sin phi1))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda2) (cos phi1)))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (cos (* 1/2 (PI))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))) (* -1/2 (* phi2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI))))))))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (cos (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (cos (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* -1/2 (* phi2 (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (cos (* 1/2 (PI))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* -1/6 (* (pow phi2 2) (cos (* 1/2 (PI)))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/120 (* (pow phi2 2) (cos (* 1/2 (PI)))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos (* 1/2 (PI))))) (* 1/120 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* -1/2 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* 1/24 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI))))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1/2 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/24 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/24 (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (* 1/2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* phi2 (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos lambda1) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* phi2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* phi2 (* (cos lambda1) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (cos (- (* 1/2 (PI)) phi1))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1/2 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* -1/6 (* phi2 (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* phi2 (- (+ (* -1 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1)))))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* phi2 (- (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (* (cos phi1) (sin lambda1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))))))) (* (cos phi1) (sin lambda1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (+ (* phi2 (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1))))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))))))) (* (cos phi1) (sin lambda1)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* 2 (* (cos phi1) (sin lambda1)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (* 2 (/ (* phi2 (* (sin lambda1) (sin phi1))) (cos lambda1))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (* 2 (* phi2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1))))))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (+ (* -2 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))))) (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (cos phi1) (sin lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin lambda1)) (/ (* phi2 (* (sin lambda1) (sin phi1))) (cos lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))))) (* -1 (* (cos phi1) (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))) (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* 1/3 (* (pow phi2 2) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))) (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))) (* 1/3 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))))))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* (pow (cos phi1) 2) (sin lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (sin lambda1))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (sin lambda1)))))) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (sin lambda1))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* 1/3 (* (pow (cos phi1) 2) (sin lambda1))))))) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* (pow phi2 2) (sin lambda1))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* (pow phi2 2) (+ (* -1 (sin lambda1)) (* 1/3 (* (pow phi2 2) (sin lambda1))))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* (pow phi2 2) (+ (* -1 (sin lambda1)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (sin lambda1))) (* 1/3 (sin lambda1)))))))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 1))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* -1 (pow phi2 2)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/3 (pow phi2 2)) 1)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/3 (* -2/45 (pow phi2 2)))) 1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* phi2 (sin phi1))) (* (cos lambda1) (cos phi1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (- (* -1/2 (* phi2 (* (cos lambda1) (cos phi1)))) (sin phi1))) (* (cos lambda1) (cos phi1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* 1/24 (* (cos lambda1) (cos phi1))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* (cos phi1) (sin lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* 2 (/ (* phi2 (* (sin lambda1) (sin phi1))) (cos lambda1))) (* (cos phi1) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))) (+ (* -1/720 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* 1/24 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))) (+ (* -1/720 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* 1/24 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi2 2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))) (* (pow phi2 2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (- (+ (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (pow (cos phi1) 2))) (pow (cos phi1) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos phi1) 2)) (* 1/3 (* (pow phi2 2) (pow (cos phi1) 2))))) (pow (cos phi1) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos phi1) 2)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (pow (cos phi1) 2))) (* 1/3 (pow (cos phi1) 2)))))) (pow (cos phi1) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (pow (sin phi1) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (sin phi1) 2))) (pow (sin phi1) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (sin phi1) 2))) (* 2/45 (pow (sin phi1) 2)))))) (pow (sin phi1) 2)))))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (pow phi2 2)))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1/3 (pow phi2 2))))))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* (pow phi2 2) (- (* 2/45 (pow phi2 2)) 1/3))))))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 2/45 (* -1/315 (pow phi2 2)))) 1/3))))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* -2 (* phi2 (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi2 (+ (* -2 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* phi2 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi2 (+ (* -2 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* phi2 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (+ (* phi2 (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (* (cos lambda1) (cos phi1)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow phi2 2) (pow (sin phi1) 2)) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (/ (* phi2 (pow (sin phi1) 3)) (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (* -1/3 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1 (/ (pow (sin phi1) 4) (* (pow (cos lambda1) 3) (pow (cos phi1) 3)))) (* -1/2 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))))) (* -1 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1/3 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1 (/ (pow (sin phi1) 4) (* (pow (cos lambda1) 3) (pow (cos phi1) 3)))) (* -1/2 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* 1/6 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))))) (* -1/3 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))) (+ (* -1 (/ (pow (sin phi1) 4) (* (pow (cos lambda1) 3) (pow (cos phi1) 3)))) (* -1/2 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))))) (* -1 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (* (* phi2 phi2) 1/120) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6)))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6)))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow phi2 2)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda2) (cos phi1)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda2) (cos phi1)))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos lambda2) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda2) (cos phi1)))) (* 1/24 (* (cos lambda2) (cos phi1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* -1/2 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* 1/24 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))) (* 1/2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 1))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (pow phi2 6) #s(hole binary64 (pow phi2 6)))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ 1 (pow phi2 6))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ (+ 1 (* -1/2 (pow phi2 2))) (pow phi2 6))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (pow phi2 6))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (pow phi2 6))))
#s(approx (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) #s(hole binary64 (/ 1 (pow phi2 6))))
#s(approx (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) #s(hole binary64 (/ (+ 1 (* 1/24 (pow phi2 4))) (pow phi2 6))))
#s(approx (/ 1 (pow phi2 2)) #s(hole binary64 (/ 1 (pow phi2 2))))
#s(approx (pow phi2 2) #s(hole binary64 (pow phi2 2)))
#s(approx (/ 1 (pow phi2 6)) #s(hole binary64 (/ 1 (pow phi2 6))))
#s(approx (+ 1/720 (/ 1/2 (pow phi2 4))) #s(hole binary64 (/ 1/2 (pow phi2 4))))
#s(approx (+ 1/720 (/ 1/2 (pow phi2 4))) #s(hole binary64 (/ (+ 1/2 (* 1/720 (pow phi2 4))) (pow phi2 4))))
#s(approx (/ 1/2 (pow phi2 4)) #s(hole binary64 (/ 1/2 (pow phi2 4))))
#s(approx (pow phi2 4) #s(hole binary64 (pow phi2 4)))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 1/24))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (+ 1/24 (* -1/720 (pow phi2 2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* 1/24 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (cos (- (* 1/2 (PI)) phi1))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1/2 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* -1/6 (* phi2 (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (+ (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (* -2/45 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (sin phi1) 2))))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* phi2 (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (- (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))) (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* 1/3 (* (pow phi2 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (pow (cos (- lambda1 lambda2)) 2)))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* phi2 (- (/ (pow (sin phi1) 3) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* -1 (/ (* (sin phi1) (- (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))) (cos (- lambda1 lambda2)))) (/ (* (sin phi1) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi2 (pow (sin phi1) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi2 (+ (* 7/8 (* phi2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (pow (sin phi1) 3))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 7/8 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi2 2) (+ (* -61/240 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 7/8 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (pow (sin phi1) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* -1/2 (* (pow phi2 2) (pow (sin phi1) 3))) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (sin phi1) 3)) (* 13/120 (* (pow phi2 2) (pow (sin phi1) 3))))) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (sin phi1) 3)) (* (pow phi2 2) (+ (* -41/3024 (* (pow phi2 2) (pow (sin phi1) 3))) (* 13/120 (pow (sin phi1) 3)))))) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1 (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* -1 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (pow (sin phi1) 2)) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (+ (* -1 (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (+ (* phi2 (- (* -1/3 (* phi2 (pow (sin phi1) 2))) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (pow (sin phi1) 2))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (sin phi1) 2))) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (sin phi1) 2))) (* 2/45 (pow (sin phi1) 2)))))) (pow (sin phi1) 2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/240 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/720 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/5040 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/24 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (sin phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* phi2 (+ phi1 (/ (cos (- lambda1 lambda2)) phi2)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos lambda2) (cos phi1)) phi2)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 phi2))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin phi2))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 phi2))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (pow (cos phi2) 2)))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1/6 (pow phi2 3))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* (pow phi2 3) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* 1/120 (pow phi2 5))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 5) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 5) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* 1/120 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (* (pow phi2 2) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1/5040 (pow phi2 7))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* -1/5040 (pow phi2 6))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* -1/5040 (pow phi2 4))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* -1/5040 (pow phi2 4))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (* -1/5040 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (* (pow phi2 2) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 -1/720))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (- (* 1/24 (/ 1 (pow phi2 2))) 1/720)))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4))))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))))
#s(approx (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) #s(hole binary64 (/ 1/24 (pow phi2 2))))
#s(approx (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) #s(hole binary64 (/ (+ 1/24 (/ 1 (pow phi2 4))) (pow phi2 2))))
#s(approx (+ 1/720 (/ 1/2 (pow phi2 4))) #s(hole binary64 1/720))
#s(approx (+ 1/720 (/ 1/2 (pow phi2 4))) #s(hole binary64 (+ 1/720 (* 1/2 (/ 1 (pow phi2 4))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (* -1/720 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (* (pow phi2 2) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 phi1) (* -1 (/ (cos (- lambda1 lambda2)) phi2)))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos lambda2) (cos phi1)) phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos phi1) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 3) (- 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) 1/120)))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) (+ 1/120 (/ 1 (pow phi2 4))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- 1/5040 (* 1/120 (/ 1 (pow phi2 2))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- (+ 1/5040 (/ 1/6 (pow phi2 4))) (* 1/120 (/ 1 (pow phi2 2))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- (+ 1/5040 (/ 1/6 (pow phi2 4))) (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))

Outputs
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
#s(literal 1/2 binary64)
(PI.f64)
(asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(cos.f64 phi1)
phi1
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(cos.f64 phi2)
phi2
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(sin.f64 phi1)
(sin.f64 phi2)
R
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1)))
(*.f64 phi2 (sin.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))
(.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))
(+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))
(/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2)))
(*.f64 phi1 (sin.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
(.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))
(+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))
(/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
(+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))
(*.f64 phi1 phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi1))
(cos.f64 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
(fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
(+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 lambda2) (cos.f64 phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(cos.f64 lambda1)
(*.f64 lambda2 (sin.f64 lambda1))
(sin.f64 lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))
(.f64 #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)))))) (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 (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)))))
(cos.f64 (neg.f64 lambda2))
(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 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(literal -1/2 binary64)
(*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))
(sin.f64 (neg.f64 lambda2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))
(*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1))
(cos.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))
(*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))
(.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2))
(cos.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
(*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 lambda1 lambda2)
#s(literal 1 binary64)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 #s(approx ( (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 #s(approx ( (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 lambda1) #s(approx ( (cos phi2) (cos phi1)) (cos.f64 phi1))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (cos.f64 lambda1) #s(approx ( (cos phi2) (cos phi1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2))))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2))))
(*.f64 (cos.f64 phi2) (cos.f64 phi1))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1))) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))
(fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2))
(+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)) (.f64 (sin.f64 phi1) phi2))
(*.f64 (sin.f64 phi1) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))
(fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1))
(+.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (.f64 (sin.f64 phi2) phi1))
(*.f64 (sin.f64 phi2) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2))
(+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64))) (.f64 (sin.f64 phi1) phi2))
#s(approx (cos phi1) #s(literal 1 binary64))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))
(fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))
(+.f64 (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
(*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))
(cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))
(-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))
(pow.f64 lambda1 #s(literal 2 binary64))
#s(literal 2 binary64)
(pow.f64 lambda2 #s(literal 2 binary64))
(+.f64 lambda1 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
(-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)
(+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
(-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)
(+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.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 (sin.f64 lambda1) (sin.f64 lambda2))
(sin.f64 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(+.f64 (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 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 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(sin.f64 (-.f64 lambda1 lambda2))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
(fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
(+.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))
(*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))
(pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))
(pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))
(-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(+.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))
(*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.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)))))
(sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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))))
(fma.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)))
(+.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)))
(.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 (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 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
(+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
(sin.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
(-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(acos.f64 #s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(+.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
(.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))
(pow.f64 (cos.f64 phi2) #s(literal 2 binary64))
(-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
(.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
(-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
(.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (sin.f64 phi2) #s(literal 2 binary64))
(pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))
(/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))
#s(approx (sin phi1) phi1)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1))
#s(literal 1/120 binary64)
(*.f64 phi1 phi1)
#s(literal 1/6 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2))
#s(approx (sin phi2) phi2)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64)) #s(literal 1 binary64))
(*.f64 phi2 phi2)
#s(literal -1/6 binary64)
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2)) #s(literal 1/6 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64)))
#s(approx (cos phi2) #s(literal 1 binary64))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1))
(cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))
#s(literal -1 binary64)
(/.f64 lambda2 lambda1)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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 #s(literal 1/2 binary64) (+.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 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(*.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))
(fma.f64 (cos.f64 lambda1) (cos.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 (cos.f64 lambda1) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))))
#s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
(*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))
(pow.f64 phi2 #s(literal 6 binary64))
#s(literal 6 binary64)
(-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))
(fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
(+.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(literal 1/24 binary64)
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(pow.f64 phi2 #s(literal 2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))
(+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(literal 1/720 binary64)
(/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))
(pow.f64 phi2 #s(literal 4 binary64))
#s(literal 4 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
(*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))
(+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))
(/.f64 (cos.f64 lambda1) lambda2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
(+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))
(*.f64 lambda1 lambda2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))
(.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(+.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1)
(fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
(+.f64 (.f64 #s(literal -1 binary64) (sin.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))
(/.f64 (cos.f64 lambda2) lambda1)
(*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))
(-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))
(*.f64 lambda1 lambda1)
(*.f64 lambda2 lambda2)
#s(approx (+ lambda1 lambda2) lambda2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
(*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
(+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))
(*.f64 #s(literal -1 binary64) lambda1)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
(*.f64 #s(literal -1 binary64) lambda2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.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)))
(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))
(fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.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 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)))
(sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))
(.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))
(.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx R R)
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.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)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.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)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (.f64 R (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (.f64 R (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (asin.f64 (fma.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 phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 lambda1 (fma.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))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.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))) (fma.f64 lambda1 (fma.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))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 (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 (fma.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 (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx lambda1 lambda1)
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (fma.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)))) (fma.f64 lambda1 (fma.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))))))) (fma.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)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda1 (fma.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)))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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)))))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 lambda1 (fma.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 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) phi2) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) phi2) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))) phi2))) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) phi2) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) phi2))))) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) phi2) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) phi2) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))) phi2))) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) phi2) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) phi2))))) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2)))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (fma.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))) (fma.f64 lambda1 (fma.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))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda1 (fma.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)))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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)))))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 lambda1 (fma.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 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) phi1) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) phi1) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) phi1))) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) phi1) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) phi1))))) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) phi1) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) phi1) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) phi1))) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) phi1) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) phi1))))) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))
#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)) (fma.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)) (fma.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)) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.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 (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda1 (fma.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 (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))
#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 (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 (* 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)) (fma.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)) (fma.f64 #s(literal -1/6 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (*.f64 #s(literal 1/120 binary64) lambda2))))))))
#s(approx (sin 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 (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.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 (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (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 #s(literal -1 binary64) (.f64 lambda1 (sin.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 (fma.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 (* 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 (fma.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 (- (* -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 (* -1/2 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (cos (neg lambda2))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) 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 (/ lambda1 lambda2) (/.f64 lambda1 lambda2))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 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 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) (*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (pow lambda1 2) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (+ lambda1 lambda2) lambda2)
#s(approx (+ lambda1 lambda2) (+.f64 lambda1 lambda2))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ lambda1 (* 1/2 (PI))) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (fma.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)))) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.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 lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (sin lambda2)) (.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 lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.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 phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 lambda1 (fma.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)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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)))) (fma.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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda1 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 lambda1 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2))))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (*.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1)))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1))) (*.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1)) (.f64 lambda1 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1)) (.f64 lambda1 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 lambda1 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda1 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (cos lambda1) 3) #s(literal 1 binary64))
#s(approx (pow (cos lambda1) 3) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -3/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (pow (cos lambda1) 3) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 7/8 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 3/2 binary64)))))
#s(approx (pow (cos lambda1) 3) (+.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 7/8 binary64) (*.f64 #s(literal -61/240 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 3/2 binary64)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (sin lambda1) 3) (pow.f64 lambda1 #s(literal 3 binary64)))
#s(approx (pow (sin lambda1) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (pow (sin lambda1) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 13/120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))
#s(approx (pow (sin lambda1) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.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 13/120 binary64) (.f64 #s(literal -41/3024 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (pow (cos lambda1) 2) #s(literal 1 binary64))
#s(approx (pow (cos lambda1) 2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (pow (cos lambda1) 2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (pow (cos lambda1) 2) (+.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/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (pow (sin lambda1) 2) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (pow (sin lambda1) 2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (pow (sin lambda1) 2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin lambda1) 2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.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 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal 1/12 binary64) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.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 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.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 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.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 lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.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 lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.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))))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.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))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 (cos.f64 (neg.f64 lambda2)) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.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 (cos.f64 (neg.f64 lambda2)) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 (cos.f64 (neg.f64 lambda2)) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/1440 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal 1/48 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal 1/24 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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)))) (.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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)))) (.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (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)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (fma.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (fma.f64 lambda1 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (fma.f64 lambda1 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda1 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda1 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (.f64 lambda1 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 4 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (fma.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 4 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/144 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/240 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/18 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/5040 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 4 binary64)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda1 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda1 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda1 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/144 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/240 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/144 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/240 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/12 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal 1/12 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/240 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (*.f64 lambda1 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/120 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 4 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/18 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/5040 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 4 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 4 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 lambda1 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 lambda1 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 lambda1 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/18 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/5040 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 lambda1 (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 lambda1 (fma.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 lambda1 (fma.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 lambda1 (fma.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/18 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/5040 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))))))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 lambda1 (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 lambda1 (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 lambda1 (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/18 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/5040 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/48 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.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)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.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))) (fma.f64 lambda1 (fma.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))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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 (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda1))
#s(approx (* -1 (/ lambda2 lambda1)) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
#s(approx (/ lambda2 lambda1) (/.f64 lambda2 lambda1))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 lambda1) lambda2) (cos lambda1)) #s(literal 1 binary64))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos 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 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(literal 1 binary64))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+.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 lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2))))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (/ (cos lambda1) lambda2) (/.f64 #s(literal 1 binary64) lambda2))
#s(approx (/ (cos lambda1) lambda2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (/ (cos lambda1) lambda2) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (/ (cos lambda1) lambda2) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) lambda2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (+ 1 (* lambda1 lambda2)) #s(literal 1 binary64))
#s(approx (+ 1 (* lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (* lambda1 lambda2) (*.f64 lambda1 lambda2))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (cos.f64 lambda2))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (cos.f64 lambda2))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/.f64 (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/.f64 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)))) lambda1))
#s(approx (* -1 (/ (cos lambda2) lambda1)) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
#s(approx (/ (cos lambda2) lambda1) (/.f64 (cos.f64 lambda2) lambda1))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 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 (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (* lambda1 lambda1) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) lambda2)
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) (+.f64 lambda1 lambda2))
#s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))
#s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 (+.f64 lambda1 lambda2) lambda1))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* -1 lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda1 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (cos.f64 lambda2))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (-.f64 (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))) (cos.f64 lambda2)) (/.f64 (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 lambda1 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda1 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (*.f64 #s(literal 7/8 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal 1/12 binary64) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))))))))))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (fma.f64 lambda1 (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.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))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda1 (fma.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))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 lambda1 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda1 (fma.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))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.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))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (acos.f64 (fma.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 phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (- lambda1 lambda2) lambda1)
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos lambda1) (cos.f64 lambda1))
#s(approx (* lambda2 (sin lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (sin lambda1) (sin.f64 lambda1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos (neg lambda2)) (* 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 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 (fma.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 (- (* -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)) (fma.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 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (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 lambda1 (fma.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 (* lambda2 (- (/ lambda1 lambda2) 1)) lambda1)
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) lambda1)
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ lambda1 lambda2) lambda1)
#s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1)
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (+ lambda1 (* 1/2 (PI))) lambda1)
#s(approx (+ lambda1 (* 1/2 (PI))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (cos lambda1) 3) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (sin lambda1) 3) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (pow (cos lambda1) 2) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
#s(approx (pow (sin lambda1) 2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.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 (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (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) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (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) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.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 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) lambda1)
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (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)) phi1)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (* (cos lambda1) (cos lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))
#s(approx (/ (cos lambda1) lambda2) (/.f64 (cos.f64 lambda1) lambda2))
#s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))
#s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (+.f64 (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (+.f64 (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (+.f64 (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 (sin.f64 lambda2) lambda1))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) lambda1)))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1)
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) lambda1)
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(literal 1 binary64))
#s(approx (+ 1 (/ lambda2 lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (-.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (asin.f64 (fma.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 phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.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 (fma.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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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 (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) 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 (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (.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))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) phi1))
#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 (* (cos (- lambda1 lambda2)) (cos phi1)) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#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 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (+ lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda1)) #s(literal 1 binary64)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.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)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.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 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.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)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 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 (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (+ 1 (* lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)) lambda1)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (.f64 R (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (.f64 R (acos.f64 (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (acos.f64 (fma.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 (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.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 (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (asin.f64 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (asin.f64 (fma.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 (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (.f64 R (acos.f64 (fma.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 (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (acos.f64 (fma.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 (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.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 (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (acos.f64 (fma.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 phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.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))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (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 (fma.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 (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx lambda2 lambda2)
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.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)))) (fma.f64 lambda2 (fma.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)))) (fma.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)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 phi2 (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (+.f64 (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))) phi2) (/.f64 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) phi2)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) phi2))) (/.f64 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) phi2)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2))))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (+.f64 (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))) phi2) (/.f64 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) phi2)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) phi2))) (/.f64 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) phi2)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2)))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.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))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 phi1 (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (+.f64 (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) phi1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) phi1))) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) phi1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (+.f64 (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) phi1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) phi1))) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) phi1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))
#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) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))
#s(approx (* (cos lambda2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos lambda2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi1)))))))
#s(approx (* (cos lambda2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1))))))))
#s(approx (cos lambda2) #s(literal 1 binary64))
#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 phi2)) (cos.f64 phi2))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 phi1) (fma.f64 phi2 (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi1))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 phi1) (fma.f64 phi2 (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 (fma.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 (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 lambda1) (* lambda2 (sin lambda1))) (cos.f64 lambda1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.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 (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 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) (fma.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) (fma.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) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.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 (cos (neg lambda2)) #s(literal 1 binary64))
#s(approx (cos (neg lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos (neg 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 (neg 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 (neg lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#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)))) (fma.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)))) (fma.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)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))
#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))) (fma.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))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) lambda2 (*.f64 #s(literal 1/4 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)))) (fma.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)))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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)))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) lambda1 (.f64 #s(literal 1/1440 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (* lambda1 (cos (neg lambda2))) lambda1)
#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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (sin (neg lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#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 (- (/ lambda1 lambda2) 1) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda2))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda2 (fma.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)))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (fma.f64 lambda2 (fma.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 (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (cos.f64 lambda1))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ 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 (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.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 (- (pow lambda1 2) (pow lambda2 2)) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (pow lambda2 2) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ lambda2 (* 1/2 (PI))) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.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 (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.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 (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.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 (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.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 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.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 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (fma.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 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.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 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.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 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.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 lambda2 (.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 (- (* 1/2 (PI)) lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (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 (- (* 1/2 (PI)) lambda2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda2 (fma.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 (- (* 1/2 (PI)) lambda2) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (- (* 1/2 (PI)) lambda2) (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (fma.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)))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) (.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 lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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 lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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) 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 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.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) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.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 (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 lambda1) (sin.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 (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (sin.f64 lambda1) (sin.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 phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda2 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 lambda2 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1))))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1)))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1)) (.f64 lambda2 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (*.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 lambda2 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda2 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (cos lambda2) 3) #s(literal 1 binary64))
#s(approx (pow (cos lambda2) 3) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -3/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (pow (cos lambda2) 3) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 7/8 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 3/2 binary64)))))
#s(approx (pow (cos lambda2) 3) (+.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 7/8 binary64) (*.f64 #s(literal -61/240 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 3/2 binary64)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (*.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (pow (sin lambda2) 3) (pow.f64 lambda2 #s(literal 3 binary64)))
#s(approx (pow (sin lambda2) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (pow (sin lambda2) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 13/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))
#s(approx (pow (sin lambda2) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (+.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 13/120 binary64) (.f64 #s(literal -41/3024 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (pow (cos lambda2) 2) #s(literal 1 binary64))
#s(approx (pow (cos lambda2) 2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (pow (cos lambda2) 2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (pow (cos lambda2) 2) (+.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/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (pow (sin lambda2) 2) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (pow (sin lambda2) 2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (pow (sin lambda2) 2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin lambda2) 2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.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 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/144 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/240 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/720 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/5040 binary64) (sin.f64 lambda1))))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/12 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/240 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/720 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1/5040 binary64) (sin.f64 lambda1))))))))))))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.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 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.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 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.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)))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.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 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.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 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.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))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 (cos.f64 lambda1) (+.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)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (+.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 (cos.f64 lambda1) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.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 (sin.f64 lambda1) (+.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 (cos.f64 lambda1) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (+.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 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.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 (sin.f64 lambda1) (+.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 (cos.f64 lambda1) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#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))) (fma.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))) (fma.f64 lambda2 (fma.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))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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 lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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 lambda1) lambda2) (cos lambda1)) (cos.f64 lambda1))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (cos.f64 lambda1))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))) lambda2))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 lambda1 lambda2))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.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 lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.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 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (fma.f64 lambda1 lambda2 (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (fma.f64 lambda2 (+.f64 lambda1 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (fma.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (-.f64 (fma.f64 lambda2 (fma.f64 lambda2 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (-.f64 (fma.f64 lambda2 (fma.f64 lambda2 (-.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/6 binary64) (/.f64 lambda2 lambda1))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (/.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (-.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (/.f64 lambda2 lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (/.f64 #s(literal -1 binary64) lambda1))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (-.f64 (*.f64 #s(literal -1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) (/.f64 #s(literal -1 binary64) lambda1))
#s(approx (* -1 (/ (cos lambda2) lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/720 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)) (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (cos lambda2) lambda1) (/.f64 #s(literal 1 binary64) lambda1))
#s(approx (/ (cos lambda2) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (cos lambda2) lambda1) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (cos lambda2) lambda1) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (* -1/2 (cos lambda2)) #s(literal -1/2 binary64))
#s(approx (* -1/2 (cos lambda2)) (-.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* -1/2 (cos lambda2)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
#s(approx (* -1/2 (cos lambda2)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/1440 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/48 binary64))))) #s(literal 1/2 binary64)))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 lambda2 (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 lambda1))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.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 (- (* lambda1 lambda1) (* lambda2 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda2 lambda2) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* -1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda2 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (cos.f64 lambda1))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda1)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (cos.f64 lambda1) (.f64 lambda2 (-.f64 (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda1)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)))))) (cos.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (*.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 lambda2 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda2 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (*.f64 #s(literal 7/8 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (*.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/144 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/240 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/720 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/5040 binary64) (sin.f64 lambda1))))))))))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda2 (fma.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)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 lambda2 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.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) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.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 (- lambda1 lambda2)) (sin (/ (PI) 2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 lambda1) (sin.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 (- lambda1 lambda2)) (sin (/ (PI) 2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (sin.f64 lambda1) (sin.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 (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda2) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (cos lambda2) (cos.f64 lambda2))
#s(approx (* (cos lambda2) (cos phi2)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) 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/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (neg lambda2)) (cos.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 (sin (neg lambda2)) (sin.f64 (neg.f64 lambda2)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (- (pow lambda1 2) (pow lambda2 2)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (+ lambda1 lambda2) (*.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2)
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 lambda2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))) (/.f64 lambda1 lambda2))))
#s(approx (+ lambda2 (* 1/2 (PI))) lambda2)
#s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 lambda1 lambda2)) #s(literal 1 binary64))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
#s(approx (- (* 1/2 (PI)) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- (* 1/2 (PI)) lambda2) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)) #s(literal 1 binary64))))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (pow (cos lambda2) 3) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))
#s(approx (pow (sin lambda2) 3) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))
#s(approx (pow (cos lambda2) 2) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))
#s(approx (pow (sin lambda2) 2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (*.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (sin.f64 lambda1))
#s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda2 (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (* -1/2 (cos lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) (*.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (+ 1 (/ lambda2 lambda1)) (*.f64 lambda2 (+.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 lambda2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))) (/.f64 lambda1 lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 lambda1 lambda2)) #s(literal 1 binary64))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (asin.f64 (fma.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 phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) 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 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.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 (fma.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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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 (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) 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 (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) phi1))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 phi1 phi2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.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 (cos (neg lambda2)) (cos.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 (- (* -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 (* -1/2 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (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 (sin (neg lambda2)) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64)))))
#s(approx (+ lambda2 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda2)) #s(literal 1 binary64)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.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 (+ (- lambda1 lambda2) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.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 (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- (* 1/2 (PI)) lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* 1/2 (PI)) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.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 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.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)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) lambda2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.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 phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (+ 1 (* lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (.f64 R (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (.f64 R (acos.f64 (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (acos.f64 (fma.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 (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.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 (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (asin.f64 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (asin.f64 (fma.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 (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (.f64 R (acos.f64 (fma.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 (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (acos.f64 (fma.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 (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.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 (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (acos.f64 (fma.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 phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.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) #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 phi1 phi1)
#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)) (fma.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)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (sin 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)) (* (* (cos phi1) (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)))) (fma.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)))) (fma.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)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.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 (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi1 (+.f64 phi2 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi1 (+.f64 phi2 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))))))
#s(approx (* phi2 (sin phi1)) (*.f64 phi1 phi2))
#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)) (fma.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)) (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2) (*.f64 #s(literal 1/120 binary64) phi2))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi1 (+.f64 phi2 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi1 (+.f64 phi2 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (fma.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) phi2))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (fma.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2) (.f64 #s(literal -1/6 binary64) phi1)))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) phi2) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) phi2))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))
#s(approx (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) phi2) (*.f64 #s(literal 1/24 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* phi1 (sin phi2)) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) phi1))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* phi1 phi2) (*.f64 phi1 phi2))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos lambda2) (cos phi1)) (cos.f64 lambda2))
#s(approx (* (cos lambda2) (cos phi1)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda2) (cos phi1)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 lambda2)))))))
#s(approx (* (cos lambda2) (cos phi1)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (.f64 phi1 (+.f64 phi2 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 lambda2)))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (.f64 phi1 (+.f64 phi2 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (+.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 (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (* (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (* (sin phi2) (sin phi1)) (.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 phi2) (sin phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 phi2) (sin phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2))
#s(approx (* (cos phi2) (cos phi1)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (cos phi1)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 phi2) (cos phi1)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (* (sin phi1) phi2) (*.f64 phi1 phi2))
#s(approx (* (sin phi1) phi2) (.f64 phi1 (+.f64 phi2 (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)))))
#s(approx (* (sin phi1) phi2) (.f64 phi1 (+.f64 phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)))))))
#s(approx (* (sin phi1) phi2) (.f64 phi1 (+.f64 phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2) (*.f64 #s(literal 1/120 binary64) phi2))))))))
#s(approx (* (sin phi2) phi1) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.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)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.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) (fma.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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi1 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (.f64 #s(literal 1/24 binary64) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (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 phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 (fma.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 (fma.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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.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 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (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 (- (* 1/2 (PI)) phi1)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.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 (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (- (* 1/2 (PI)) phi1) (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 #s(literal -1 binary64) (.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 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.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) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.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 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) (+.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 (+ phi1 (* 1/2 (PI)))) (+.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 (+ phi1 (* 1/2 (PI)))) (+.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 (fma.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 (+ phi1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi1 (* 1/2 (PI))) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (fma.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 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (fma.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 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (fma.f64 phi1 (fma.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 phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (.f64 #s(literal 2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 #s(literal 2 binary64) (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 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (sin.f64 phi2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (.f64 phi1 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 phi1 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 phi1 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 phi1 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 phi1 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 phi1 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 phi1 (.f64 (sin.f64 lambda1) (sin.f64 phi2))) (cos.f64 lambda1)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 phi1 (fma.f64 #s(literal 2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 #s(literal 2 binary64) (/.f64 (*.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 phi1 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 phi1 (fma.f64 #s(literal -2 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))))) (.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 (cos.f64 phi2) (sin.f64 lambda1) (/.f64 (.f64 phi1 (.f64 (sin.f64 lambda1) (sin.f64 phi2))) (cos.f64 lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (fma.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (fma.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (pow (cos phi1) 2) #s(literal 1 binary64))
#s(approx (pow (cos phi1) 2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (pow (cos phi1) 2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (pow (cos phi1) 2) (+.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/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 phi2))))) (sin.f64 phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 phi1 (.f64 (sin.f64 lambda1) (sin.f64 phi2))) (cos.f64 lambda1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (sin phi1) 2) (pow.f64 phi1 #s(literal 2 binary64)))
#s(approx (pow (sin phi1) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (pow (sin phi1) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin phi1) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.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 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 #s(literal -2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (sin.f64 phi2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (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))) (fma.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))) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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))) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) phi1)
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) 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 (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (+.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 (- (* 1/120 (* phi1 phi1)) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (* 1/120 (* phi1 phi1)) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (* phi1 phi1) (pow.f64 phi1 #s(literal 2 binary64)))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (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 (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 (fma.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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.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 (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.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) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (-.f64 (.f64 phi1 (fma.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))))) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi1 (-.f64 (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 phi1 (fma.f64 #s(literal 7/8 binary64) (.f64 phi1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (*.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi1 (-.f64 (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 phi1 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi1 (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))))))))))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.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 phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* phi2 (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (sin.f64 phi2))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos phi2) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (* (sin phi1) phi2) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (* 1/2 (PI)) phi1) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi1 (* 1/2 (PI))) phi1)
#s(approx (+ phi1 (* 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (+.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))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi1)
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)) #s(literal 1 binary64))))
#s(approx (pow (cos phi1) 2) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (sin phi1) 2) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 5 binary64))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 4 binary64))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 #s(literal 1/2 binary64) (+.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)))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)) #s(literal 1 binary64))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.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 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.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 (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 phi2) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.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 (* 1/2 (PI)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (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 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.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 (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (+.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/120 binary64)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 4 binary64))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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 phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
#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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (cos phi2) #s(literal 1 binary64))
#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 phi2 phi2)
#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)) (fma.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)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (sin 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)) (* (* (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)))) (fma.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)))) (fma.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)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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 (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) phi2))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (+.f64 phi1 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))))))
#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)) (fma.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)) (fma.f64 #s(literal -1/6 binary64) phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64))) (*.f64 #s(literal 1/120 binary64) phi1))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+.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))) phi1))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (+.f64 phi1 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (fma.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) phi1))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (fma.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (.f64 #s(literal -1/6 binary64) phi2)))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) phi1) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) phi1))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) phi1) (*.f64 #s(literal 1/24 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2)))))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.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 (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (* (sin phi2) (sin phi1)) (.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 phi2) (sin phi1)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 phi2) (sin phi1)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1))
#s(approx (* (cos phi2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos phi2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 phi2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (* (sin phi2) phi1) (*.f64 phi1 phi2))
#s(approx (* (sin phi2) phi1) (.f64 phi2 (+.f64 phi1 (.f64 #s(literal -1/6 binary64) (*.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (sin phi2) phi1) (.f64 phi2 (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) phi1 (.f64 #s(literal 1/120 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))))))))
#s(approx (* (sin phi2) phi1) (.f64 phi2 (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64))) (*.f64 #s(literal 1/120 binary64) phi1))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (+.f64 (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.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)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 phi2 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (+.f64 phi1 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (+.f64 phi1 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.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) (fma.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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi2 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1))
#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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (.f64 (cos.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))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.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))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.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))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi2 (* 1/2 (PI))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (- (* 1/2 (PI)) phi2) (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.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))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.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))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #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 (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi2 (fma.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 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.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 (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (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 lambda1) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+.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 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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)) (fma.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 phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (.f64 (cos.f64 lambda1) (+.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)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (fma.f64 phi2 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 lambda1) (+.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))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (fma.f64 phi2 (fma.f64 phi2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (+.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))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 phi2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (+.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))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (sin.f64 phi1)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (.f64 phi2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (sin.f64 phi1)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 phi2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 phi2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 phi2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))))))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 phi2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 phi2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))))))) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 phi2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (cos.f64 lambda1)))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 phi2 (fma.f64 #s(literal 2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 #s(literal 2 binary64) (/.f64 (*.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))))))
#s(approx (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 phi2 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 phi2 (fma.f64 #s(literal -2 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))))) (.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (*.f64 (cos.f64 phi1) (sin.f64 lambda1)))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 lambda1) (/.f64 (.f64 phi2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (cos.f64 lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (fma.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (fma.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (sin.f64 lambda1))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/3 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda1)))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 #s(literal 1/3 binary64) (sin.f64 lambda1))))))))
#s(approx (pow (cos phi2) 2) #s(literal 1 binary64))
#s(approx (pow (cos phi2) 2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (pow (cos phi2) 2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (pow (cos phi2) 2) (+.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/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (sin.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 phi1))))) (sin.f64 phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (*.f64 (cos.f64 phi1) (sin.f64 lambda1)))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 phi2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (sin.f64 lambda1))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (fma.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (fma.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (sin phi2) 2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (pow (sin phi2) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (pow (sin phi2) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin phi2) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.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 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 #s(literal -2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 phi2 (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 phi2 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (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))) (fma.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))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (* (+ (* (* phi2 phi2) -1/6) 1) phi2) phi2)
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* phi2 phi2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) phi2)
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) 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 (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (+.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 (- (* (* phi2 phi2) 1/120) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (* (* phi2 phi2) 1/120) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) phi2)
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) 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 (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) 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 (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (+.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 (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (+.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 (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (-.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 (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (.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(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(literal 1/120 binary64))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))))))
#s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 lambda2) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi2 (fma.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/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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)))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/2 binary64) (+.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))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (+.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 (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (+.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 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(literal 1 binary64))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (+.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 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (+.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 (pow phi2 6) (pow.f64 phi2 #s(literal 6 binary64)))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 (+.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)))) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 (+.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)))) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (/ 1 (pow phi2 2)) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (pow phi2 2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (/ 1 (pow phi2 6)) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (+ 1/720 (/ 1/2 (pow phi2 4))) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ 1/720 (/ 1/2 (pow phi2 4))) (/.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/720 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (/ 1/2 (pow phi2 4)) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (pow phi2 4) (pow.f64 phi2 #s(literal 4 binary64)))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.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 (- (* (* phi2 phi2) 1/24) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (* phi2 phi2) 1/24) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (-.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 (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (.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(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(literal 1/24 binary64))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.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))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
#s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (-.f64 (.f64 phi2 (fma.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))))) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (-.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 phi2 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 phi2 (fma.f64 #s(literal 7/8 binary64) (.f64 phi2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (*.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi2 (-.f64 (.f64 phi2 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 phi2 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 phi2 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi2 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.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 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (cos phi2) (cos.f64 phi2))
#s(approx (sin phi2) (sin.f64 phi2))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (sin.f64 phi1))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) phi2))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi2 (* 1/2 (PI))) phi2)
#s(approx (+ phi2 (* 1/2 (PI))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- (* 1/2 (PI)) phi2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) phi2)
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2))) (/.f64 phi1 phi2))))
#s(approx (pow (cos phi2) 2) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
#s(approx (pow (sin phi2) 2) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (*.f64 (pow.f64 phi2 #s(literal 3 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 7 binary64))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (*.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(literal -1/720 binary64))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (-.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64)))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (-.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))
#s(approx (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (/.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (/.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ 1/720 (/ 1/2 (pow phi2 4))) #s(literal 1/720 binary64))
#s(approx (+ 1/720 (/ 1/2 (pow phi2 4))) (+.f64 #s(literal 1/720 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2))) (/.f64 phi1 phi2))))
#s(approx (+ phi2 (/ (PI) 2)) phi2)
#s(approx (+ phi2 (/ (PI) 2)) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2)
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ phi2 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1 binary64)))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/120 binary64)))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 #s(literal 1/5040 binary64) (*.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (*.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1 binary64)))))
#s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))

eval2.1s (6.3%)

Memory: 91.6MiB live, 3 071.5MiB allocated; 1.6s collecting garbage
Compiler: Compiled 720 206 to 46 420 computations (93.6% saved)

prune887.0ms (2.6%)

Memory

40.0MiB live, 1 596.0MiB allocated; 203ms collecting garbage

Pruning

167 alts after pruning (137 fresh and 30 done)

	Pruned	Kept	Total
New	10 083	137	10 220
Fresh	0	0	0
Picked	73	29	102
Done	0	1	1
Total	10 156	167	10 323

Accuracy

96.2%

Counts

10 323 → 167

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	55.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))) R)
✓	47.6%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))) R)
▶	47.4%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
▶	23.8%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	76.5%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
▶	30.9%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
▶	22.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
✓	95.8%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	55.1%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	54.9%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	20.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))) R)
▶	20.5%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
▶	31.9%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
✓	47.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
✓	55.4%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
▶	33.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))) R)
▶	24.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	24.4%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	24.3%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	26.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
▶	53.1%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
▶	25.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	25.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	26.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	15.4%	(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	55.9%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	55.1%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	55.4%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
▶	37.7%	(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	44.0%	(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	29.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))) R)
✓	31.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
▶	19.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)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) R)
▶	55.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
▶	33.3%	(.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 (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
▶	6.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	25.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	21.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	19.3%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	18.4%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	18.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	19.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
▶	19.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
▶	19.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
▶	14.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
▶	10.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
▶	22.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
▶	16.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
▶	21.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
▶	20.0%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
▶	15.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
▶	16.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
▶	16.2%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	17.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
▶	10.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
▶	54.9%	(.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 (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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
▶	15.9%	(.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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
▶	24.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	24.2%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
▶	11.1%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	47.5%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
▶	33.0%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) R)
▶	20.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	20.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	17.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	19.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
▶	19.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
▶	21.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
▶	26.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
▶	20.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
▶	18.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	20.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	26.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
▶	19.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
▶	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
▶	21.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
▶	20.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
▶	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	21.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
▶	19.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
▶	22.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
▶	29.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
▶	19.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	21.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	20.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
▶	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
▶	21.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
✓	34.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	20.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	55.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	54.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
▶	29.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
▶	23.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
✓	95.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	38.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
✓	47.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	25.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))))) R)
▶	29.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	26.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	47.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
✓	54.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	31.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	31.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	29.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
▶	38.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))))) R)
✓	35.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
▶	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
▶	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
▶	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
▶	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
▶	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
▶	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
▶	16.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
▶	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
▶	20.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
▶	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
▶	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
▶	24.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
▶	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
▶	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
▶	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
▶	16.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
✓	29.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
▶	15.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
✓	22.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
✓	25.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
✓	55.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
✓	28.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
✓	29.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
✓	33.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
✓	31.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	16.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	15.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
▶	29.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
✓	29.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
✓	32.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
▶	19.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
▶	19.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
✓	25.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
▶	11.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
▶	25.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
✓	25.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
✓	26.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
✓	32.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
▶	17.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
▶	8.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
▶	14.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
▶	18.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
▶	10.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2))))) R)
✓	11.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
▶	37.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
▶	24.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
✓	23.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
▶	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
▶	8.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))))) R)
▶	8.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
▶	16.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
✓	12.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
▶	23.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
▶	55.3%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
▶	55.1%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
▶	37.0%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) R)
▶	37.7%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
▶	44.0%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
▶	95.6%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)

Compiler

Compiled 7 790 to 5 337 computations (31.5% saved)

series1.6s (4.8%)

Memory

28.3MiB live, 2 522.4MiB allocated; 406ms collecting garbage

Counts

981 → 3 243

Calls

Call 1

Inputs
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
#s(literal 1/2 binary64)
(PI.f64)
(asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(cos.f64 phi1)
phi1
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(cos.f64 phi2)
phi2
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(cos.f64 lambda1)
lambda1
(cos.f64 lambda2)
lambda2
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(sin.f64 lambda1)
(sin.f64 lambda2)
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(sin.f64 phi1)
(sin.f64 phi2)
R
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(asin.f64 #s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(neg.f64 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))
(.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))
(/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))
(*.f64 phi1 phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))
(+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2)))
(fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #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 phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))
(cos.f64 #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 (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(literal -1 binary64)
(.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))
#s(literal 1 binary64)
(*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))
(/.f64 lambda1 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))
(.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))
(/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
(.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))
(/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2)))
(+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))
(+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)))
(*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))
#s(approx (cos lambda2) #s(literal 1 binary64))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))
(.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
(*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))
(+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))
(/.f64 (cos.f64 lambda1) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))
(.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 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 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
(*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(literal -1/2 binary64)
(pow.f64 lambda1 #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- ( -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1)))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- ( -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))
(.f64 lambda1 #s(approx (- ( -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))
(*.f64 #s(literal -1/2 binary64) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))
(.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) lambda1)
(sin.f64 (neg.f64 lambda2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))
(.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2))
(cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))))))
#s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))
(.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
(*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
(-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) lambda2)
(/.f64 #s(literal 1 binary64) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (cos lambda1) #s(literal 1 binary64))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))
(fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))
(*.f64 phi2 (sin.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
(-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)
(+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))
(*.f64 #s(literal -1 binary64) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))
(sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))
(-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1)
#s(approx (+ lambda2 (* 1/2 (PI))) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1)))
(sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))
(-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1)
#s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))))
(.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))
(*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))
(/.f64 (PI.f64) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
(*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1))
(/.f64 (PI.f64) lambda1)
(/.f64 lambda2 lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
(-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)
(+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))
(sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))))
(sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
(*.f64 #s(literal -1 binary64) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))
(sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))
(-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2)
#s(approx (+ lambda1 (* 1/2 (PI))) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))))
(.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))
(+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))
(/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin 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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.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))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))
(*.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2))
#s(approx (sin lambda1) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(sin.f64 (-.f64 lambda1 lambda2))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
(fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))
(*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))
(pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))
(pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))
(-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))
(*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))))
(sin.f64 #s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))
(*.f64 #s(literal -1 binary64) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))))
(sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))
#s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))
(*.f64 #s(literal -1 binary64) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.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 lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)))
(sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))
#s(approx (+ phi1 (* 1/2 (PI))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))))
(sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))
#s(approx (+ phi1 (* 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
(.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))
(*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))
(/.f64 (PI.f64) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))
(sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))
#s(approx (+ phi2 (* 1/2 (PI))) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
(+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
(sin.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
(-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
(+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
(sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi1))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1)))))
(+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1))))
(sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1))
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) R)
(acos.f64 #s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow.f64 (cos.f64 phi2) #s(literal 2 binary64))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (sin.f64 phi2) #s(literal 2 binary64))
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(acos.f64 #s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))
(-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
(.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))
(-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
(.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
(.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
(-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
(pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))
(/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi1 (sin.f64 phi2)))
(*.f64 phi1 (sin.f64 phi2))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)))
(sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi2 (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 phi2 phi2)
(cos.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
#s(literal 1/24 binary64)
(.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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))
(-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))
(*.f64 lambda1 lambda1)
(*.f64 lambda2 lambda2)
#s(approx (+ lambda1 lambda2) lambda2)
(.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 (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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.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)))
(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))
(fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1))
#s(literal 1/120 binary64)
(*.f64 phi1 phi1)
#s(literal 1/6 binary64)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2))
#s(approx (sin phi2) phi2)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(pow.f64 phi2 #s(literal 2 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
#s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64)))
#s(approx (cos phi2) #s(literal 1 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1))
(cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
(.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
(+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))
(*.f64 lambda1 lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
(.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))))))
#s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))))
(.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))
(pow.f64 phi2 #s(literal 6 binary64))
#s(literal 6 binary64)
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))
(.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 (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(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 (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2))))
(*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) 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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(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 (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2))))
(*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) 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)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) R)
(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 lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))
(.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(/.f64 #s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1)
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))
(/.f64 (cos.f64 lambda2) lambda1)
(*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1)))))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1)))))
#s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))
(*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1)))
#s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
(.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))
(.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2))
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #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 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64))
#s(literal -1/6 binary64)
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2)) #s(literal 1/6 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))
(.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))
(fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))

Outputs
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx R #s(hole binary64 R))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) #s(hole binary64 (* R (acos (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (cos lambda1) #s(hole binary64 1))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/24 (pow lambda1 2)) 1/2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/24 (* -1/720 (pow lambda1 2)))) 1/2)))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (sin lambda1) #s(hole binary64 lambda1))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* 1/120 (pow lambda1 2)) 1/6))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/120 (* -1/5040 (pow lambda1 2)))) 1/6))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (neg lambda2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* -1 (/ (* lambda1 (* (cos phi1) (sin (neg lambda2)))) phi2)) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda1 (+ (* -1 (/ (* (cos phi1) (sin (neg lambda2))) phi2)) (* -1/2 (/ (* lambda1 (* (cos phi1) (cos (neg lambda2)))) phi2)))) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda1 (+ (* -1 (/ (* (cos phi1) (sin (neg lambda2))) phi2)) (* lambda1 (+ (* -1/2 (/ (* (cos phi1) (cos (neg lambda2))) phi2)) (* 1/6 (/ (* lambda1 (* (cos phi1) (sin (neg lambda2)))) phi2)))))) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (/ (cos (neg lambda2)) phi2)))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (+ (* -1 (/ (* lambda1 (sin (neg lambda2))) phi2)) (/ (cos (neg lambda2)) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) phi2)) (* -1/2 (/ (* lambda1 (cos (neg lambda2))) phi2)))) (/ (cos (neg lambda2)) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) phi2)) (* lambda1 (+ (* -1/2 (/ (cos (neg lambda2)) phi2)) (* 1/6 (/ (* lambda1 (sin (neg lambda2))) phi2)))))) (/ (cos (neg lambda2)) phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (* phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (+ (* -1 (* lambda1 (sin (neg lambda2)))) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (+ (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (+ (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (* phi1 phi2)))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ 1 (* phi1 phi2))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ 1 (+ (* lambda1 lambda2) (* phi1 phi2)))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ 1 (+ (* lambda1 (+ lambda2 (* -1/2 lambda1))) (* phi1 phi2)))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ 1 (+ (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))) (* phi1 phi2)))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (+ (* lambda1 lambda2) (* phi1 phi2))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (+ (* lambda1 (+ lambda2 (* -1/6 (* (pow lambda1 2) lambda2)))) (* phi1 phi2))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (+ (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* 1/120 (* (pow lambda1 2) lambda2)))))) (* phi1 phi2))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 lambda2))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (+ lambda2 (* -1 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (+ 1 (* -1 (/ lambda1 lambda2)))))
#s(approx (* -1 (/ lambda1 lambda2)) #s(hole binary64 (* -1 (/ lambda1 lambda2))))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* -1/2 (/ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) phi1)))) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* lambda1 (+ (* -1/2 (/ (* (cos phi2) (cos (neg lambda2))) phi1)) (* 1/6 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)))))) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (/ (cos (neg lambda2)) phi1)))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (+ (* -1 (/ (* lambda1 (sin (neg lambda2))) phi1)) (/ (cos (neg lambda2)) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) phi1)) (* -1/2 (/ (* lambda1 (cos (neg lambda2))) phi1)))) (/ (cos (neg lambda2)) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) phi1)) (* lambda1 (+ (* -1/2 (/ (cos (neg lambda2)) phi1)) (* 1/6 (/ (* lambda1 (sin (neg lambda2))) phi1)))))) (/ (cos (neg lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (neg lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* -1 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* -1/2 (/ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) phi1)))) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* lambda1 (+ (* -1/2 (/ (* (cos phi2) (cos (neg lambda2))) phi1)) (* 1/6 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)))))) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 1))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 1))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (/ 1 lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ lambda1 (/ 1 lambda2))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/2 (/ lambda1 lambda2)))) (/ 1 lambda2))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* lambda1 (- (* -1/6 lambda1) (* 1/2 (/ 1 lambda2)))))) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* -1/2 (/ (pow lambda1 2) lambda2)) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* (pow lambda1 2) (- (* 1/24 (/ (pow lambda1 2) lambda2)) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* (pow lambda1 2) (- (* (pow lambda1 2) (+ (* -1/720 (/ (pow lambda1 2) lambda2)) (* 1/24 (/ 1 lambda2)))) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))))))))
#s(approx (+ 1 (* -1/2 (pow lambda1 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/2 (pow lambda1 2))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (* -1/2 (pow lambda1 2)) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (pow lambda1 2) #s(hole binary64 (pow lambda1 2)))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (sin (neg lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
#s(approx (* -1/2 lambda1) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 -1))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ -1 lambda1)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ (- (/ lambda1 lambda2) 1) lambda1)))
#s(approx (/ 1 lambda1) #s(hole binary64 (/ 1 lambda1)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* -1 lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (/ (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))) lambda1)))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (/ (PI) lambda1) #s(hole binary64 (/ (PI) lambda1)))
#s(approx (/ lambda2 lambda1) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2)))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2))))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos lambda2) (cos phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* phi1 (+ (sin phi2) (/ (* (cos lambda2) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda2) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda2) (cos phi2)) phi1))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos lambda2) (cos phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (/ (* lambda1 (* (cos phi2) (sin lambda2))) phi1) (/ (* (cos lambda2) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* -1/2 (/ (* lambda1 (* (cos lambda2) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda2)) phi1))) (/ (* (cos lambda2) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (/ (* (cos lambda2) (cos phi2)) phi1)) (* -1/6 (/ (* lambda1 (* (cos phi2) (sin lambda2))) phi1)))) (/ (* (cos phi2) (sin lambda2)) phi1))) (/ (* (cos lambda2) (cos phi2)) phi1)))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (/ (* (cos lambda2) (cos phi2)) phi1)))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (/ (* lambda1 (* (cos phi2) (sin lambda2))) phi1) (/ (* (cos lambda2) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (/ (* lambda1 (* (cos lambda2) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda2)) phi1))) (/ (* (cos lambda2) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (/ (* (cos lambda2) (cos phi2)) phi1)) (* -1/6 (/ (* lambda1 (* (cos phi2) (sin lambda2))) phi1)))) (/ (* (cos phi2) (sin lambda2)) phi1))) (/ (* (cos lambda2) (cos phi2)) phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow lambda1 2) (cos lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow lambda1 2) (cos lambda2))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) #s(hole binary64 (acos (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 3))) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi1) (sin lambda2))))) (* (cos lambda2) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (cos phi1))) (* lambda1 (- (/ (* (cos phi1) (pow (sin lambda2) 3)) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi1) (sin lambda2))))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (* (pow (cos lambda2) 3) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (* (pow (cos lambda2) 3) (cos phi1)))) (* (pow (cos lambda2) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (* (pow (cos lambda2) 3) (cos phi1))) (* lambda1 (* (cos phi1) (pow (sin lambda2) 3))))) (* (pow (cos lambda2) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (* (pow (cos lambda2) 3) (cos phi1))) (* lambda1 (+ (* 7/8 (* lambda1 (* (pow (cos lambda2) 3) (cos phi1)))) (* (cos phi1) (pow (sin lambda2) 3)))))) (* (pow (cos lambda2) 3) (cos phi1)))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (pow (sin lambda2) 3)))) (pow (cos lambda2) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (+ (* 7/8 (* lambda1 (pow (cos lambda2) 3))) (pow (sin lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 1))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (+ 1 (* -3/2 (pow lambda1 2)))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 7/8 (pow lambda1 2)) 3/2)))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 7/8 (* -61/240 (pow lambda1 2)))) 3/2)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (pow (sin lambda2) 3))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (* (pow lambda1 2) (pow (sin lambda2) 3))) (pow (sin lambda2) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* 13/120 (* (pow lambda1 2) (pow (sin lambda2) 3))))) (pow (sin lambda2) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* (pow lambda1 2) (+ (* -41/3024 (* (pow lambda1 2) (pow (sin lambda2) 3))) (* 13/120 (pow (sin lambda2) 3)))))) (pow (sin lambda2) 3)))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (pow lambda1 3)))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* -1/2 (pow lambda1 2))))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* (pow lambda1 2) (- (* 13/120 (pow lambda1 2)) 1/2))))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 13/120 (* -41/3024 (pow lambda1 2)))) 1/2))))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (pow (cos lambda2) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (pow (cos lambda2) 2)) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 1/3 (pow (cos lambda2) 2)))) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (pow (cos lambda2) 2)) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (+ (* 1/3 (pow (cos lambda2) 2)) (* (pow lambda1 2) (+ (* -2/45 (pow (cos lambda2) 2)) (* 2/45 (pow (sin lambda2) 2))))))) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 1))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* -1 (pow lambda1 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/3 (pow lambda1 2)) 1)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/3 (* -2/45 (pow lambda1 2)))) 1)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (pow (sin lambda2) 2))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/3 (* (pow lambda1 2) (pow (sin lambda2) 2))) (pow (sin lambda2) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 2/45 (* (pow lambda1 2) (pow (sin lambda2) 2))))) (pow (sin lambda2) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* (pow lambda1 2) (+ (* -1/315 (* (pow lambda1 2) (pow (sin lambda2) 2))) (* 2/45 (pow (sin lambda2) 2)))))) (pow (sin lambda2) 2)))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (pow lambda1 2)))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1/3 (pow lambda1 2))))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* (pow lambda1 2) (- (* 2/45 (pow lambda1 2)) 1/3))))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 2/45 (* -1/315 (pow lambda1 2)))) 1/3))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (* 1/12 (* (cos lambda2) (sin lambda2)))))))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (+ (* 1/12 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/144 (* (cos lambda2) (sin lambda2))) (+ (* -1/240 (* (cos lambda2) (sin lambda2))) (+ (* -1/720 (* (cos lambda2) (sin lambda2))) (* -1/5040 (* (cos lambda2) (sin lambda2))))))))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (cos lambda2) (sin lambda2)))) (* (cos lambda2) (sin lambda2))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* 1/120 (* (pow lambda1 2) (* (cos lambda2) (sin lambda2))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (cos lambda2) (sin lambda2)))) (* 1/120 (* (cos lambda2) (sin lambda2)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/24 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* 1/24 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* 1/24 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))) (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/24 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))))) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))) (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/4 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/4 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* 1/48 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/4 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (pow lambda1 2) (+ (* -1/1440 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/48 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (* -1/2 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (* (pow lambda1 2) (+ (* -1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* 1/24 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (* (pow lambda1 2) (+ (* -1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/24 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* lambda1 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2)))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda1 (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* lambda1 (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda1 (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* lambda1 (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda1 (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (+ (* lambda1 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (/ (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 2 (* lambda1 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* -1/144 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/240 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/5040 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/2 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/2 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* 1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/12 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/2 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* 1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/12 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/144 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/240 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/720 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/120 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* 1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (pow (cos phi2) 2))) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (pow (cos phi2) 2)) (* 1/120 (* (pow lambda1 2) (pow (cos phi2) 2))))) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (pow (cos phi2) 2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (pow (cos phi2) 2))) (* 1/120 (pow (cos phi2) 2)))))) (pow (cos phi2) 2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2))))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* (pow lambda1 2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (- (* 1/3 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (- (+ (* 1/3 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (- (* -2/45 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* 1/3 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* -1 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -2/45 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* lambda2 (* (cos phi1) (cos phi2))))) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow lambda1 2) (+ (* -1/2 (* lambda2 (* (cos phi1) (cos phi2)))) (* 1/24 (* (pow lambda1 2) (* lambda2 (* (cos phi1) (cos phi2))))))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow lambda1 2) (+ (* -1/2 (* lambda2 (* (cos phi1) (cos phi2)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* lambda2 (* (cos phi1) (cos phi2))))) (* 1/24 (* lambda2 (* (cos phi1) (cos phi2)))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* (pow lambda1 2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* (pow lambda1 2) (- (+ (* (pow lambda1 2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/360 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)) (/ (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (pow lambda1 2) (+ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (pow lambda1 2) (+ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (* (pow lambda1 2) (+ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (pow lambda1 2) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (pow lambda1 2) (+ (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow lambda1 2) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))))))))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (+ (* -1 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -2/45 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* -1 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (+ (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/360 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (* -1 (* (pow lambda1 2) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (* (pow lambda1 2) (- (* -1 (* (pow lambda1 2) (+ (* -1/720 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (+ (* 1/48 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* -1 (* lambda1 (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (* -1 lambda2))) (* 1/6 (* lambda1 (sin (* -1 lambda2)))))) (sin (* -1 lambda2)))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* -1 (pow lambda2 2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (- (pow lambda1 2) (pow lambda2 2))))
#s(approx (* lambda1 lambda1) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda2))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (+ lambda1 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 3))) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (cos lambda2)))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (+ (* -3/2 (cos lambda2)) (* lambda1 (- (/ (pow (sin lambda2) 3) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (cos lambda2))) (+ (* -1 (/ (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))) (cos lambda2))) (/ (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (pow (cos lambda2) 2))))))) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (pow (sin lambda2) 3)))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (+ (* 7/8 (* lambda1 (pow (cos lambda2) 3))) (pow (sin lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* 7/8 (* (pow lambda1 2) (pow (cos lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* (pow lambda1 2) (+ (* -61/240 (* (pow lambda1 2) (pow (cos lambda2) 3))) (* 7/8 (pow (cos lambda2) 3)))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (pow (sin lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (* (pow lambda1 2) (pow (sin lambda2) 3))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* 13/120 (* (pow lambda1 2) (pow (sin lambda2) 3))))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* (pow lambda1 2) (+ (* -41/3024 (* (pow lambda1 2) (pow (sin lambda2) 3))) (* 13/120 (pow (sin lambda2) 3)))))) (pow (sin lambda2) 3)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* lambda1 (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (pow (sin lambda2) 2)) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* lambda1 (- (* -1/3 (* lambda1 (pow (sin lambda2) 2))) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (pow (sin lambda2) 2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/3 (* (pow lambda1 2) (pow (sin lambda2) 2))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 2/45 (* (pow lambda1 2) (pow (sin lambda2) 2))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* (pow lambda1 2) (+ (* -1/315 (* (pow lambda1 2) (pow (sin lambda2) 2))) (* 2/45 (pow (sin lambda2) 2)))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (* 1/12 (* (cos lambda2) (sin lambda2)))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (+ (* 1/12 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/144 (* (cos lambda2) (sin lambda2))) (+ (* -1/240 (* (cos lambda2) (sin lambda2))) (+ (* -1/720 (* (cos lambda2) (sin lambda2))) (* -1/5040 (* (cos lambda2) (sin lambda2))))))))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda1)))
#s(approx (* -1 (/ lambda2 lambda1)) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 1))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (* lambda1 lambda2) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (cos lambda2)))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (/ (cos lambda2) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (/ (+ (cos lambda2) (* lambda1 (sin lambda2))) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (/ (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (cos lambda2) (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (cos lambda2)) (* -1 (* lambda1 (sin lambda2)))) (pow lambda1 2))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (* -1 (/ (cos lambda2) lambda1))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (/ (+ (* -1 (cos lambda2)) (* -1 (* lambda1 (sin lambda2)))) lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (* -1 (/ (cos lambda2) lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (/ (cos lambda2) lambda1)))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 lambda2))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (+ lambda1 lambda2)))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (/ (+ lambda1 lambda2) lambda1)))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (* (pow (cos phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg lambda2)) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (+ (* lambda1 (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (sin (neg lambda2)) 2)))))) (pow (cos (neg lambda2)) 2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (+ (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (+ (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (- (+ (* lambda1 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (+ (cos (* 1/2 (PI))) (* -1/2 (* lambda1 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (+ (cos (* 1/2 (PI))) (* lambda1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* lambda1 (cos (* 1/2 (PI))))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) #s(hole binary64 (* lambda1 (cos (* 1/2 (PI))))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (PI))) (* -1/6 (* (pow lambda1 2) (cos (* 1/2 (PI)))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (PI))) (* (pow lambda1 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/120 (* (pow lambda1 2) (cos (* 1/2 (PI)))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (PI))) (* (pow lambda1 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (cos (* 1/2 (PI))))) (* 1/120 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (cos lambda1) #s(hole binary64 (cos lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (sin lambda1) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2)))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (+ (* lambda2 (sin lambda1)) (* phi1 phi2))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 lambda1))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* -1 lambda1)))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (* -1 (/ lambda1 lambda2))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ (sin lambda1) (/ (cos lambda1) lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (/ (cos lambda1) lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* -1/2 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2))) (/ (sin (neg lambda2)) lambda1)))))
#s(approx (+ 1 (* -1/2 (pow lambda1 2))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (+ 1 (* -1/2 (pow lambda1 2))) #s(hole binary64 (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 lambda1))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ 1 lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (- (/ 1 lambda2) (/ 1 lambda1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (* -1 lambda1)))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 -1))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (pow (sin lambda1) 3)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (pow (sin lambda1) 2)))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* (pow (cos phi2) 2) (sin lambda1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 lambda1))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (pow lambda1 2)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (/ lambda2 lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (pow (cos lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (- (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (+ 1 (* -1 (/ lambda2 lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ lambda2 (/ 1 lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (* -1/2 (cos lambda2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (sin lambda2) lambda1))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda1 (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 1))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (+ 1 (/ lambda2 lambda1))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin lambda1))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (/ (cos (neg (+ lambda2 (* -1 lambda1)))) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg (+ lambda2 (* -1 lambda1)))) (* phi1 phi2))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (/ (cos (neg (+ lambda2 (* -1 lambda1)))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))) phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (sin (neg lambda2)) (* -1 (/ (cos (neg lambda2)) lambda1))) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (cos (neg lambda2))) (/ (sin (neg lambda2)) lambda1))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (+ (* -1 (/ lambda2 lambda1)) (* -1/2 (/ (PI) lambda1))))))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (- (* -1 (/ (+ (* -1 lambda2) (* -1/2 (PI))) lambda1)) 1)))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (* -1 (/ (+ (* -1 lambda2) (* -1/2 (PI))) lambda1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda1 (- (* -1/2 (/ (PI) lambda1)) 1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ lambda2 lambda1)) 1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 lambda2) (/ 1 lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (+ (sin lambda2) (/ (cos lambda2) lambda1)) lambda1))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ lambda2 lambda1)) 1)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))))))))
#s(approx (cos lambda2) #s(hole binary64 1))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (sin lambda2) #s(hole binary64 lambda2))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* -1/6 (pow lambda2 2))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* 1/120 (pow lambda2 2)) 1/6))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/120 (* -1/5040 (pow lambda2 2)))) 1/6))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 1))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (/ (* lambda2 (* (cos phi1) (sin lambda1))) phi2) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi1))) phi2)) (/ (* (cos phi1) (sin lambda1)) phi2))) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) phi2)) (* -1/6 (/ (* lambda2 (* (cos phi1) (sin lambda1))) phi2)))) (/ (* (cos phi1) (sin lambda1)) phi2))) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (/ (cos lambda1) phi2)))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (+ (/ (cos lambda1) phi2) (/ (* lambda2 (sin lambda1)) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (cos lambda1)) phi2)) (/ (sin lambda1) phi2))) (/ (cos lambda1) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (cos lambda1) phi2)) (* -1/6 (/ (* lambda2 (sin lambda1)) phi2)))) (/ (sin lambda1) phi2))) (/ (cos lambda1) phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (* phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))) (* phi1 phi2)))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ (cos lambda1) (* phi1 phi2))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (/ (+ lambda2 (* -1 lambda1)) lambda2)))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) phi1)) (* -1/6 (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1)))) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (/ (cos lambda1) phi1)))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (+ (/ (cos lambda1) phi1) (/ (* lambda2 (sin lambda1)) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (cos lambda1)) phi1)) (/ (sin lambda1) phi1))) (/ (cos lambda1) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (cos lambda1) phi1)) (* -1/6 (/ (* lambda2 (sin lambda1)) phi1)))) (/ (sin lambda1) phi1))) (/ (cos lambda1) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos lambda1) (cos phi2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) phi1)) (* -1/6 (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1)))) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow lambda2 2) (cos phi1))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow lambda2 2) (cos phi1))))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (* phi2 (sin phi1)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow lambda2 2) (cos phi1))) (* phi2 (sin phi1))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (+ (* phi2 (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow lambda2 2) (cos phi1)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (+ (* phi2 (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi1))) (* 1/24 (cos phi1))))))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (+ 1 (* phi1 phi2))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* phi1 phi2)))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (+ 1 (+ (* phi1 phi2) (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (+ 1 (+ (* phi1 phi2) (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (cos lambda1)))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (/ (cos lambda1) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (/ (+ (cos lambda1) (* lambda2 (sin lambda1))) lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* 1/4 (* (pow lambda1 2) lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2)))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* lambda2 (+ (* -1/6 lambda2) (* 1/4 lambda1))))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* 1/4 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/48 (* lambda1 (pow lambda2 2))) (* 1/4 lambda1))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* 1/4 lambda1) (* (pow lambda2 2) (+ (* -1/48 lambda1) (* 1/1440 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2)))
#s(approx (/ 1 lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ 1 (* 1/2 (/ (PI) lambda2))) #s(hole binary64 (* 1/2 (/ (PI) lambda2))))
#s(approx (+ 1 (* 1/2 (/ (PI) lambda2))) #s(hole binary64 (/ (+ lambda2 (* 1/2 (PI))) lambda2)))
#s(approx (* 1/2 (/ (PI) lambda2)) #s(hole binary64 (* 1/2 (/ (PI) lambda2))))
#s(approx (/ (PI) lambda2) #s(hole binary64 (/ (PI) lambda2)))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (* lambda1 (- (* 1/2 (/ (PI) lambda1)) 1))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (+ lambda2 (* lambda1 (- (* 1/2 (/ (PI) lambda1)) 1)))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (- (* 1/2 (/ (PI) lambda1)) 1)))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (* 1/2 (/ (PI) lambda1))))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI))))))) (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* -1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) phi1)) (* -1/6 (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1)))) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (/ (* (cos lambda1) (cos phi2)) phi1)))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) phi1)) (* -1/6 (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1)))) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow lambda2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow lambda2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* lambda2 (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos lambda1) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (* 1/2 (PI)))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 3))) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi1) (sin lambda1))))) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (cos phi1))) (* lambda2 (- (/ (* (cos phi1) (pow (sin lambda1) 3)) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi1) (sin lambda1))))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (* (pow (cos lambda1) 3) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (* (pow (cos lambda1) 3) (cos phi1)))) (* (pow (cos lambda1) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (* (pow (cos lambda1) 3) (cos phi1))) (* lambda2 (* (cos phi1) (pow (sin lambda1) 3))))) (* (pow (cos lambda1) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (* (pow (cos lambda1) 3) (cos phi1))) (* lambda2 (+ (* 7/8 (* lambda2 (* (pow (cos lambda1) 3) (cos phi1)))) (* (cos phi1) (pow (sin lambda1) 3)))))) (* (pow (cos lambda1) 3) (cos phi1)))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (pow (sin lambda1) 3)))) (pow (cos lambda1) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (+ (* 7/8 (* lambda2 (pow (cos lambda1) 3))) (pow (sin lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 1))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (+ 1 (* -3/2 (pow lambda2 2)))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 7/8 (pow lambda2 2)) 3/2)))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 7/8 (* -61/240 (pow lambda2 2)))) 3/2)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (pow (sin lambda1) 3))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (+ (* -1/2 (* (pow lambda2 2) (pow (sin lambda1) 3))) (pow (sin lambda1) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* 13/120 (* (pow lambda2 2) (pow (sin lambda1) 3))))) (pow (sin lambda1) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* (pow lambda2 2) (+ (* -41/3024 (* (pow lambda2 2) (pow (sin lambda1) 3))) (* 13/120 (pow (sin lambda1) 3)))))) (pow (sin lambda1) 3)))))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (pow lambda2 3)))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (* (pow lambda2 3) (+ 1 (* -1/2 (pow lambda2 2))))))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (* (pow lambda2 3) (+ 1 (* (pow lambda2 2) (- (* 13/120 (pow lambda2 2)) 1/2))))))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (* (pow lambda2 3) (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 13/120 (* -41/3024 (pow lambda2 2)))) 1/2))))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (pow (cos lambda1) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -1 (pow (cos lambda1) 2)) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 1/3 (pow (cos lambda1) 2)))) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -1 (pow (cos lambda1) 2)) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (+ (* 1/3 (pow (cos lambda1) 2)) (* (pow lambda2 2) (+ (* -2/45 (pow (cos lambda1) 2)) (* 2/45 (pow (sin lambda1) 2))))))) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 1))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (+ 1 (* -1 (pow lambda2 2)))))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/3 (pow lambda2 2)) 1)))))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/3 (* -2/45 (pow lambda2 2)))) 1)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (pow (sin lambda1) 2))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/3 (* (pow lambda2 2) (pow (sin lambda1) 2))) (pow (sin lambda1) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 2/45 (* (pow lambda2 2) (pow (sin lambda1) 2))))) (pow (sin lambda1) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* (pow lambda2 2) (+ (* -1/315 (* (pow lambda2 2) (pow (sin lambda1) 2))) (* 2/45 (pow (sin lambda1) 2)))))) (pow (sin lambda1) 2)))))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (pow lambda2 2)))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -1/3 (pow lambda2 2))))))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* (pow lambda2 2) (- (* 2/45 (pow lambda2 2)) 1/3))))))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 2/45 (* -1/315 (pow lambda2 2)))) 1/3))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (* (cos lambda1) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (+ (* 1/12 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* 1/24 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* -1/2 (* (pow lambda2 2) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow lambda2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* 1/24 (* (pow lambda2 2) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow lambda2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (sin (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))) (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (/ (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) lambda2)))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (/ (+ (* 2 (/ (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) lambda2)))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (+ (* -1 (pow lambda2 2)) (pow lambda1 2))))
#s(approx (* lambda2 lambda2) #s(hole binary64 (pow lambda2 2)))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 3))) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (cos lambda1)))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (+ (* -3/2 (cos lambda1)) (* lambda2 (- (/ (pow (sin lambda1) 3) (pow (cos lambda1) 2)) (+ (* -1 (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (cos lambda1))) (/ (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (pow (cos lambda1) 2))))))) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (pow (sin lambda1) 3)))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (+ (* 7/8 (* lambda2 (pow (cos lambda1) 3))) (pow (sin lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* 7/8 (* (pow lambda2 2) (pow (cos lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* (pow lambda2 2) (+ (* -61/240 (* (pow lambda2 2) (pow (cos lambda1) 3))) (* 7/8 (pow (cos lambda1) 3)))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (pow (sin lambda1) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* -1/2 (* (pow lambda2 2) (pow (sin lambda1) 3))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* 13/120 (* (pow lambda2 2) (pow (sin lambda1) 3))))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* (pow lambda2 2) (+ (* -41/3024 (* (pow lambda2 2) (pow (sin lambda1) 3))) (* 13/120 (pow (sin lambda1) 3)))))) (pow (sin lambda1) 3)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* lambda2 (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (pow (sin lambda1) 2)) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* lambda2 (- (* -1/3 (* lambda2 (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (pow (sin lambda1) 2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/3 (* (pow lambda2 2) (pow (sin lambda1) 2))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 2/45 (* (pow lambda2 2) (pow (sin lambda1) 2))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* (pow lambda2 2) (+ (* -1/315 (* (pow lambda2 2) (pow (sin lambda1) 2))) (* 2/45 (pow (sin lambda1) 2)))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (* (cos lambda1) (sin lambda1)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* lambda1 lambda2) (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* lambda2 (+ lambda1 (* (pow lambda1 2) (* lambda2 (- 1/4 (* 1/2 (/ 1 (pow lambda1 2)))))))) (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* lambda2 (+ lambda1 (* lambda2 (+ (* -1/6 (* lambda1 lambda2)) (* (pow lambda1 2) (- 1/4 (* 1/2 (/ 1 (pow lambda1 2))))))))) (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (/ 1 (pow lambda1 2)) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (+ (/ 1 (pow lambda1 2)) (/ lambda2 lambda1)) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (- 1/4 (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))) (/ 1 (pow lambda1 2))) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (- (+ 1/4 (* -1/6 (/ lambda2 lambda1))) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))) (/ 1 (pow lambda1 2))) 1/2)))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (/ -1 (pow lambda1 2))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (- (* -1 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (- (* lambda2 (- (* 1/2 (/ lambda2 (pow lambda1 2))) (/ 1 lambda1))) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (- (* lambda2 (- (* lambda2 (+ (* 1/6 (/ lambda2 lambda1)) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))) (/ 1 (pow lambda1 2)))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (/ -1 lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (- (* -1 lambda2) (/ 1 lambda1))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (/ lambda2 lambda1)) 1)) (/ 1 lambda1))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (+ (* 1/6 lambda2) (* 1/2 (/ 1 lambda1)))) 1)) (/ 1 lambda1))))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (/ -1 lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (- (* 1/2 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1))))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (- (* (pow lambda2 2) (+ (* -1/24 (/ (pow lambda2 2) lambda1)) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (- (* (pow lambda2 2) (+ (* (pow lambda2 2) (- (* 1/720 (/ (pow lambda2 2) lambda1)) (* 1/24 (/ 1 lambda1)))) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (/ 1 lambda1)))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (+ (* -1/2 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (+ (* (pow lambda2 2) (- (* 1/24 (/ (pow lambda2 2) lambda1)) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (+ (* (pow lambda2 2) (- (* (pow lambda2 2) (+ (* -1/720 (/ (pow lambda2 2) lambda1)) (* 1/24 (/ 1 lambda1)))) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 -1/2))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* 1/4 (pow lambda2 2)) 1/2)))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* (pow lambda2 2) (+ 1/4 (* -1/48 (pow lambda2 2)))) 1/2)))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* (pow lambda2 2) (+ 1/4 (* (pow lambda2 2) (- (* 1/1440 (pow lambda2 2)) 1/48)))) 1/2)))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* lambda2 (* (pow (cos phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* (pow (cos phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (pow (sin lambda1) 2)))))) (pow (cos lambda1) 2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* lambda2 (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (+ (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (+ (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (- (+ (* lambda2 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* lambda2 (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (+ (/ (cos lambda1) lambda2) (/ (* phi1 phi2) lambda2))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (* phi1 phi2) lambda2)))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda2) (* phi1 phi2))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2))))))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) #s(hole binary64 lambda2))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) #s(hole binary64 (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2))))))
#s(approx (+ 1 (* 1/2 (/ (PI) lambda2))) #s(hole binary64 1))
#s(approx (+ 1 (* 1/2 (/ (PI) lambda2))) #s(hole binary64 (+ 1 (* 1/2 (/ (PI) lambda2)))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 lambda2))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (* lambda2 (+ 1 (/ (* lambda1 (- (* 1/2 (/ (PI) lambda1)) 1)) lambda2)))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) (* lambda1 lambda2))) (/ 1 lambda1)) (/ 1 lambda2)))))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (* lambda2 (+ (* 1/2 (/ (PI) (* lambda1 lambda2))) (/ 1 lambda1)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (pow (sin lambda2) 3)))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (pow (sin lambda2) 2)))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (+ (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda2 2) (- (/ (pow lambda1 2) (pow lambda2 2)) 1))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda2 (+ 1 (/ lambda1 lambda2)))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda2 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (/ 1 lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (* -1/2 (cos lambda2))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda2 (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (* lambda2 (+ (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (/ (cos (+ lambda1 (* -1 lambda2))) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (+ lambda1 (* -1 lambda2))) (* phi1 phi2))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (+ (cos lambda1) (* phi1 phi2)) lambda2)))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (* phi1 phi2) lambda2)))))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (/ (cos (+ lambda1 (* -1 lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))) phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (* -1 lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (* -1 lambda2)))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda2 (- (* -1/2 (/ (PI) lambda2)) 1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) #s(hole binary64 (* -1 (* lambda2 (- (* -1/2 (/ (PI) lambda2)) 1)))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (* lambda1 (- (* 1/2 (/ (PI) lambda1)) 1)) lambda2)) 1)))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (/ (PI) lambda1)) 1) lambda2)) (/ 1 lambda1))))))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (* -1 (* lambda2 (- (* -1/2 (/ (PI) (* lambda1 lambda2))) (/ 1 lambda1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos (* -1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (* -1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (* -1 (/ (- (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) lambda2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (* -1 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (* -1 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ lambda1 lambda2)) 1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 lambda1) (/ 1 lambda2))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ lambda1 lambda2)) 1)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (+ lambda1 (* -1 lambda2))) 2)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ phi1 (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (* phi1 (+ 1 (* -1/2 (/ (* phi1 (cos (- lambda1 lambda2))) phi2)))) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (* phi1 (+ 1 (* phi1 (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi2)) (* -1/6 phi1))))) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* phi1 phi2) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (/ (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) phi1)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda2) (cos phi2)))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow phi1 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (* (pow phi1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi1 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (* (pow phi1 2) (+ (* -1/2 (cos lambda2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos lambda2) (* phi1 phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos lambda2) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos lambda2))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos lambda2) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 phi2)))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 (+ phi2 (* -1/6 (* (pow phi1 2) phi2))))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* 1/120 (* (pow phi1 2) phi2))))))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) phi2)) (* 1/120 phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/2 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/24 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (/ (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) phi1)))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (/ (* phi1 (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* -1/6 (* phi1 (sin phi2))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi1 2) (+ (* -1/720 (/ (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (* 1/24 (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (* 1/24 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1/2 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/24 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/24 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* -1/2 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* 1/24 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (sin (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/6 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi1 (cos (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (+ (* -1 phi1) (* 1/2 (PI)))))
#s(approx (* -1 phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))) (* -1/2 (* phi1 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/6 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI))))))))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2))))))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* -1/6 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))) (* (cos phi2) (cos (* 1/2 (PI))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (sin phi2)) (* -1/6 (* (cos phi2) (cos (* 1/2 (PI))))))))) (* (cos phi2) (cos (* 1/2 (PI))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ 1 (* 1/2 (/ (PI) phi1))) #s(hole binary64 (* 1/2 (/ (PI) phi1))))
#s(approx (+ 1 (* 1/2 (/ (PI) phi1))) #s(hole binary64 (/ (+ phi1 (* 1/2 (PI))) phi1)))
#s(approx (* 1/2 (/ (PI) phi1)) #s(hole binary64 (* 1/2 (/ (PI) phi1))))
#s(approx (/ (PI) phi1) #s(hole binary64 (/ (PI) phi1)))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (cos (* 1/2 (PI))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI)))))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (+ (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (+ (* phi1 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* 2 (sin (* 1/2 (PI))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* 2 (sin (* 1/2 (PI)))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* 2 (sin (* 1/2 (PI)))) (* phi1 (+ (cos (* 1/2 (PI))) (+ (* -1 (cos (* 1/2 (PI)))) (* -1 (* phi1 (sin (* 1/2 (PI)))))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* 2 (sin (* 1/2 (PI)))) (* phi1 (+ (cos (* 1/2 (PI))) (+ (* -1 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1 (sin (* 1/2 (PI)))) (* phi1 (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI))))))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* 1/2 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos lambda1) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1 (* phi1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* phi1 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (* (cos lambda1) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (* 2 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* phi1 (- (+ (* -1 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2)))))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (cos phi2)))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (cos phi2) (* phi1 (sin phi2)))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (cos phi2) (* phi1 (- (* phi1 (- (* -1 (cos phi2)) (+ (* -1 (/ (pow (sin phi2) 2) (cos phi2))) (+ (* -1/2 (cos phi2)) (/ (pow (sin phi2) 2) (cos phi2)))))) (* -1 (sin phi2)))))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (cos phi2) (* phi1 (- (* phi1 (- (+ (* -1 (cos phi2)) (* phi1 (- (* -1 (/ (pow (sin phi2) 3) (pow (cos phi2) 2))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (cos phi2)) (+ (* -1 (/ (pow (sin phi2) 2) (cos phi2))) (* -1/2 (cos phi2))))) (cos phi2))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (cos phi2))) (+ (* -1/2 (cos phi2)) (/ (pow (sin phi2) 2) (cos phi2)))))) (* -1 (sin phi2)))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (cos phi2)))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (cos phi2) (* phi1 (sin phi2)))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (cos phi2) (* phi1 (- (* phi1 (- (* -1 (cos phi2)) (+ (* -1 (/ (pow (sin phi2) 2) (cos phi2))) (* -1/2 (cos phi2))))) (* -1 (sin phi2)))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (cos phi2) (* phi1 (- (* phi1 (- (+ (* -1 (cos phi2)) (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (cos phi2)) (+ (* -1 (/ (pow (sin phi2) 2) (cos phi2))) (* -1/2 (cos phi2))))) (cos phi2))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (cos phi2))) (* -1/2 (cos phi2))))) (* -1 (sin phi2)))))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (pow (cos phi2) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (cos phi2) 2))) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos phi2) 2)) (* 1/3 (* (pow phi1 2) (pow (cos phi2) 2))))) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos phi2) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (cos phi2) 2))) (* 1/3 (pow (cos phi2) 2)))))) (pow (cos phi2) 2))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 1))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (cos phi2)))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (cos phi2) (* -1 (* phi1 (sin phi2))))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (sin phi2))))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (cos phi2) (* phi1 (- (* phi1 (+ (* -1/2 (cos phi2)) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow phi1 2) (pow (sin phi2) 2)) (cos phi2))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (/ (* phi1 (pow (sin phi2) 3)) (pow (cos phi2) 2)) (/ (pow (sin phi2) 2) (cos phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (- (* phi1 (- (* -1/3 (/ (pow (sin phi2) 2) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 4) (pow (cos phi2) 3))) (* -1/2 (/ (pow (sin phi2) 2) (cos phi2)))))) (* -1 (/ (pow (sin phi2) 3) (pow (cos phi2) 2))))) (/ (pow (sin phi2) 2) (cos phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1/3 (/ (pow (sin phi2) 2) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 4) (pow (cos phi2) 3))) (* -1/2 (/ (pow (sin phi2) 2) (cos phi2)))))) (cos phi2))) (+ (* -1/2 (/ (pow (sin phi2) 3) (pow (cos phi2) 2))) (* 1/6 (/ (pow (sin phi2) 3) (pow (cos phi2) 2))))))) (* -1/3 (/ (pow (sin phi2) 2) (cos phi2)))) (+ (* -1 (/ (pow (sin phi2) 4) (pow (cos phi2) 3))) (* -1/2 (/ (pow (sin phi2) 2) (cos phi2)))))) (* -1 (/ (pow (sin phi2) 3) (pow (cos phi2) 2))))) (/ (pow (sin phi2) 2) (cos phi2))))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (pow (sin phi2) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* 2/45 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (sin phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))) (pow (sin phi2) 2)))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* phi1 (- (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (* lambda2 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (/ (* (cos lambda1) (cos phi2)) lambda2)) (* (cos phi2) (sin lambda1))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (* phi1 (- (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))) (* -1 (/ (sin phi2) lambda2))))) (* lambda2 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (/ (* (cos lambda1) (cos phi2)) lambda2)) (* (cos phi2) (sin lambda1)))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (/ (* (cos lambda1) (cos phi2)) lambda2)) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (* lambda2 (* phi1 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))))))) (* lambda2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))) (* -1 (/ (sin phi2) lambda2)))))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (/ (* (cos lambda1) (cos phi2)) lambda2)) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (* lambda2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))) (* -1 (/ (sin phi2) lambda2)))) (* phi1 (+ (* lambda2 (* phi1 (- (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2)))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (sin phi2) lambda2)) (* 1/6 (/ (sin phi2) lambda2))))))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))))))))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (/ (* (cos lambda1) (cos phi2)) lambda2)) (* (cos phi2) (sin lambda1)))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (- (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (- (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))))))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (- (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (+ (* phi1 (- (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2)))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (sin phi2) lambda2)) (* 1/6 (/ (sin phi2) lambda2)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))))))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2))) (* (cos phi2) (sin lambda1)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (/ (* (cos lambda1) (cos phi2)) lambda2))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (- (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (- (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (- (+ (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2)))))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (- (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (- (+ (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* phi1 (- (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (sin phi2) lambda2)) (* 1/6 (/ (sin phi2) lambda2)))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2)))))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (cos phi2) (sin lambda1)) (/ (* phi1 (* (sin lambda1) (sin phi2))) (cos lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))))) (* -1 (* (cos phi2) (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow phi1 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* 1/3 (* (pow phi1 2) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow phi1 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))) (* 1/3 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))))))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* (pow (cos phi2) 2) (sin lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (sin lambda1))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (sin lambda1))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* 1/3 (* (pow (cos phi2) 2) (sin lambda1))))))) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (- (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))) (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* 1/24 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/24 (* (cos lambda1) (cos phi2))))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (cos lambda1) (cos phi2)) lambda2)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (/ (* phi1 (sin phi2)) lambda2) (/ (* (cos lambda1) (cos phi2)) lambda2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2))))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (sin phi2) lambda2)) (* 1/6 (/ (sin phi2) lambda2)))))) (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2))))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda2 (* (cos lambda1) (cos phi2)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (sin phi2)))) (* lambda2 (* (cos lambda1) (cos phi2))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos lambda1) (cos phi2))) (* phi1 (+ (* -1 (* lambda2 (sin phi2))) (* -1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos lambda1) (cos phi2))) (* phi1 (+ (* -1 (* lambda2 (sin phi2))) (* phi1 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* 1/6 (* lambda2 (* phi1 (sin phi2)))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* 2 (/ (* phi1 (* (sin lambda1) (sin phi2))) (cos lambda1))) (* (cos phi2) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2)))))) (+ (* -1/720 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* 1/24 (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (* (cos phi2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (+ (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))) (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi1 2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow phi1 2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow phi1 2) (+ (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2)))) (* (pow phi1 2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (- (+ (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2))))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* -2 (* phi1 (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi1 (+ (* -2 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* phi1 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi1 (+ (* -2 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* phi1 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (+ (* phi1 (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (pow (sin phi2) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow phi1 2) (pow (sin phi2) 2)) (* (cos lambda1) (cos phi2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (/ (* phi1 (pow (sin phi2) 3)) (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (- (* phi1 (- (* -1/3 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1 (/ (pow (sin phi2) 4) (* (pow (cos lambda1) 3) (pow (cos phi2) 3)))) (* -1/2 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))))) (* -1 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1/3 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1 (/ (pow (sin phi2) 4) (* (pow (cos lambda1) 3) (pow (cos phi2) 3)))) (* -1/2 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* 1/6 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))))) (* -1/3 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))) (+ (* -1 (/ (pow (sin phi2) 4) (* (pow (cos lambda1) 3) (pow (cos phi2) 3)))) (* -1/2 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))))) (* -1 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* 1/2 (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))) (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* 2 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* 1/24 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi1 2) (+ (* -1/720 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 phi1))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6)))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi1 2)) 1/6)))
#s(approx (* 1/120 (* phi1 phi1)) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/6 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))) (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2)))))) (* 1/2 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/2 (* phi1 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1/2 (* phi1 (sin (* 1/2 (PI))))) (* 1/2 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* 1/2 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/2 (* phi1 (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI))))))))))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (+ (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (* -2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (sin phi2) 2))))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* 1/3 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (pow (cos (- lambda1 lambda2)) 2)))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* phi1 (- (/ (pow (sin phi2) 3) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* -1 (/ (* (sin phi2) (- (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (* (sin phi2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi1 (pow (sin phi2) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi1 (+ (* 7/8 (* phi1 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (pow (sin phi2) 3))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 7/8 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 7/8 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (sin phi2) 3)) (* 13/120 (* (pow phi1 2) (pow (sin phi2) 3))))) (pow (sin phi2) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (sin phi2) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (sin phi2) 3))) (* 13/120 (pow (sin phi2) 3)))))) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (pow (sin phi2) 2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* phi1 (- (* -1/3 (* phi1 (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* 2/45 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (sin phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))) (pow (sin phi2) 2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/240 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/720 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/5040 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/24 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* phi1 (+ phi2 (/ (cos (- lambda1 lambda2)) phi1)))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* phi1 (+ phi2 (+ (/ (cos lambda1) phi1) (/ (* lambda2 (sin lambda1)) phi1))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* phi1 (+ phi2 (/ (* lambda2 (sin lambda1)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (sin phi2)))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (* phi1 (+ phi2 (/ (cos lambda2) phi1)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (sin phi2)))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) 1))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 phi1))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) #s(hole binary64 phi1))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (+ 1 (* 1/2 (/ (PI) phi1))) #s(hole binary64 1))
#s(approx (+ 1 (* 1/2 (/ (PI) phi1))) #s(hole binary64 (+ 1 (* 1/2 (/ (PI) phi1)))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 phi1))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow (sin phi1) 2) (pow (sin phi2) 2))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* 1/120 (pow phi1 5))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 5) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 5) (- (+ 1/120 (/ 1 (pow phi1 4))) (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* 1/120 (pow phi1 4))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 4) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 4) (- (+ 1/120 (/ 1 (pow phi1 4))) (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 2) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (sin phi2) 2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 phi2) (* -1 (/ (cos (- lambda1 lambda2)) phi1)))))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 phi2) (* -1 (/ (+ (cos lambda1) (* lambda2 (sin lambda1))) phi1)))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 phi2) (* -1 (/ (* lambda2 (sin lambda1)) phi1)))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 phi2) (* -1 (/ (cos lambda2) phi1)))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (sin (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1/2 (/ (PI) phi1)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 5) (- (* 1/6 (/ 1 (pow phi1 2))) 1/120)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 5) (- (* 1/6 (/ 1 (pow phi1 2))) (+ 1/120 (/ 1 (pow phi1 4))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* 1/2 (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (/ (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ phi2 (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (* phi2 (+ 1 (* -1/2 (/ (* phi2 (cos (- lambda1 lambda2))) phi1)))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (* phi2 (+ 1 (* phi2 (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/6 phi2))))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (cos (- lambda1 lambda2))) phi1)) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi1)) (* 1/24 (/ (* (pow phi2 2) (cos (- lambda1 lambda2))) phi1)))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi1)) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (cos (- lambda1 lambda2))) phi1)) (* 1/24 (/ (cos (- lambda1 lambda2)) phi1)))))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda2) (cos phi1)))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow phi2 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ phi1 (* -1/2 (* phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi1 phi2)))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* phi1 (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* phi1 phi2) (* phi1 (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* phi1 (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1))) (* phi2 (+ phi1 (* -1/2 (* phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* phi1 (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1))) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ phi2 (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (* phi2 (+ 1 (* -1/2 (/ (* phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))) (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (* phi2 (+ 1 (* phi2 (+ (* -1/2 (/ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) phi1)) (* -1/6 phi2))))) (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (/ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) phi1)) (* 1/24 (/ (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))) (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) phi1)) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (* 1/24 (/ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) phi1)))))) (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/24 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (/ (* phi2 (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* -1/6 (* phi2 (sin phi1))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (cos (* 1/2 (PI))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx (* -1 phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))) (* -1/2 (* phi2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI))))))))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (cos (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (cos (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* -1/2 (* phi2 (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (cos (* 1/2 (PI))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* -1/6 (* (pow phi2 2) (cos (* 1/2 (PI)))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/120 (* (pow phi2 2) (cos (* 1/2 (PI)))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos (* 1/2 (PI))))) (* 1/120 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* -1/2 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* 1/24 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI))))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (sin phi1)))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (sin phi1))))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1/2 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/24 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/24 (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (* 1/2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* phi2 (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos lambda1) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* phi2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* phi2 (* (cos lambda1) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (cos (- (* 1/2 (PI)) phi1))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1/2 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* -1/6 (* phi2 (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* phi2 (- (+ (* -1 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1)))))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (cos phi1)))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (cos phi1) (* phi2 (sin phi1)))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1 (cos phi1)) (+ (* -1 (/ (pow (sin phi1) 2) (cos phi1))) (+ (* -1/2 (cos phi1)) (/ (pow (sin phi1) 2) (cos phi1)))))) (* -1 (sin phi1)))))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (cos phi1) (* phi2 (- (* phi2 (- (+ (* -1 (cos phi1)) (* phi2 (- (* -1 (/ (pow (sin phi1) 3) (pow (cos phi1) 2))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (cos phi1)) (+ (* -1 (/ (pow (sin phi1) 2) (cos phi1))) (* -1/2 (cos phi1))))) (cos phi1))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (cos phi1))) (+ (* -1/2 (cos phi1)) (/ (pow (sin phi1) 2) (cos phi1)))))) (* -1 (sin phi1)))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (cos phi1)))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (cos phi1) (* phi2 (sin phi1)))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1 (cos phi1)) (+ (* -1 (/ (pow (sin phi1) 2) (cos phi1))) (* -1/2 (cos phi1))))) (* -1 (sin phi1)))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (cos phi1) (* phi2 (- (* phi2 (- (+ (* -1 (cos phi1)) (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (cos phi1)) (+ (* -1 (/ (pow (sin phi1) 2) (cos phi1))) (* -1/2 (cos phi1))))) (cos phi1))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (cos phi1))) (* -1/2 (cos phi1))))) (* -1 (sin phi1)))))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (pow (cos phi1) 2))) (pow (cos phi1) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos phi1) 2)) (* 1/3 (* (pow phi2 2) (pow (cos phi1) 2))))) (pow (cos phi1) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos phi1) 2)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (pow (cos phi1) 2))) (* 1/3 (pow (cos phi1) 2)))))) (pow (cos phi1) 2))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 1))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* -1 (pow phi2 2)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/3 (pow phi2 2)) 1)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/3 (* -2/45 (pow phi2 2)))) 1)))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (cos phi1)))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (cos phi1) (* -1 (* phi2 (sin phi1))))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (sin phi1))))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow phi2 2) (pow (sin phi1) 2)) (cos phi1))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (/ (* phi2 (pow (sin phi1) 3)) (pow (cos phi1) 2)) (/ (pow (sin phi1) 2) (cos phi1))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (* -1/3 (/ (pow (sin phi1) 2) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 4) (pow (cos phi1) 3))) (* -1/2 (/ (pow (sin phi1) 2) (cos phi1)))))) (* -1 (/ (pow (sin phi1) 3) (pow (cos phi1) 2))))) (/ (pow (sin phi1) 2) (cos phi1))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1/3 (/ (pow (sin phi1) 2) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 4) (pow (cos phi1) 3))) (* -1/2 (/ (pow (sin phi1) 2) (cos phi1)))))) (cos phi1))) (+ (* -1/2 (/ (pow (sin phi1) 3) (pow (cos phi1) 2))) (* 1/6 (/ (pow (sin phi1) 3) (pow (cos phi1) 2))))))) (* -1/3 (/ (pow (sin phi1) 2) (cos phi1)))) (+ (* -1 (/ (pow (sin phi1) 4) (pow (cos phi1) 3))) (* -1/2 (/ (pow (sin phi1) 2) (cos phi1)))))) (* -1 (/ (pow (sin phi1) 3) (pow (cos phi1) 2))))) (/ (pow (sin phi1) 2) (cos phi1))))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (pow (sin phi1) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (sin phi1) 2))) (pow (sin phi1) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (sin phi1) 2))) (* 2/45 (pow (sin phi1) 2)))))) (pow (sin phi1) 2)))))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (pow phi2 2)))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1/3 (pow phi2 2))))))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* (pow phi2 2) (- (* 2/45 (pow phi2 2)) 1/3))))))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 2/45 (* -1/315 (pow phi2 2)))) 1/3))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* phi2 (- (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (* lambda2 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (/ (* (cos lambda1) (cos phi1)) lambda2)) (* (cos phi1) (sin lambda1))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (* phi2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))) (* -1 (/ (sin phi1) lambda2))))) (* lambda2 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (/ (* (cos lambda1) (cos phi1)) lambda2)) (* (cos phi1) (sin lambda1)))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (/ (* (cos lambda1) (cos phi1)) lambda2)) (* (cos phi1) (sin lambda1)))) (* phi2 (+ (* lambda2 (* phi2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))))))) (* lambda2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))) (* -1 (/ (sin phi1) lambda2)))))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (/ (* (cos lambda1) (cos phi1)) lambda2)) (* (cos phi1) (sin lambda1)))) (* phi2 (+ (* lambda2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))) (* -1 (/ (sin phi1) lambda2)))) (* phi2 (+ (* lambda2 (* phi2 (- (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1)))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (sin phi1) lambda2)) (* 1/6 (/ (sin phi1) lambda2))))))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))))))))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (/ (* (cos lambda1) (cos phi1)) lambda2)) (* (cos phi1) (sin lambda1)))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2))) (* (cos phi1) (sin lambda1)))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))))))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2))) (* (cos phi1) (sin lambda1)))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (+ (* phi2 (- (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1)))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (sin phi1) lambda2)) (* 1/6 (/ (sin phi1) lambda2)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))))))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2))) (* (cos phi1) (sin lambda1)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (/ (* (cos lambda1) (cos phi1)) lambda2))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (- (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (- (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (- (+ (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2)))))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (- (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (- (+ (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* phi2 (- (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (sin phi1) lambda2)) (* 1/6 (/ (sin phi1) lambda2)))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2)))))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (cos phi1) (sin lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin lambda1)) (/ (* phi2 (* (sin lambda1) (sin phi1))) (cos lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))))) (* -1 (* (cos phi1) (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))) (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* 1/3 (* (pow phi2 2) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))) (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))) (* 1/3 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))))))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* (pow (cos phi1) 2) (sin lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (sin lambda1))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (sin lambda1)))))) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (sin lambda1))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* 1/3 (* (pow (cos phi1) 2) (sin lambda1))))))) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* (pow phi2 2) (sin lambda1))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* (pow phi2 2) (+ (* -1 (sin lambda1)) (* 1/3 (* (pow phi2 2) (sin lambda1))))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* (pow phi2 2) (+ (* -1 (sin lambda1)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (sin lambda1))) (* 1/3 (sin lambda1)))))))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* phi2 (sin phi1))) (* (cos lambda1) (cos phi1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (- (* -1/2 (* phi2 (* (cos lambda1) (cos phi1)))) (sin phi1))) (* (cos lambda1) (cos phi1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* 1/24 (* (cos lambda1) (cos phi1))))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (cos lambda1) (cos phi1)) lambda2)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (/ (* phi2 (sin phi1)) lambda2) (/ (* (cos lambda1) (cos phi1)) lambda2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2))))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (sin phi1) lambda2)) (* 1/6 (/ (sin phi1) lambda2)))))) (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2))))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda2 (* (cos lambda1) (cos phi1)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi2 (sin phi1)))) (* lambda2 (* (cos lambda1) (cos phi1))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos lambda1) (cos phi1))) (* phi2 (+ (* -1 (* lambda2 (sin phi1))) (* -1/2 (* lambda2 (* phi2 (* (cos lambda1) (cos phi1))))))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos lambda1) (cos phi1))) (* phi2 (+ (* -1 (* lambda2 (sin phi1))) (* phi2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* 1/6 (* lambda2 (* phi2 (sin phi1)))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* (cos phi1) (sin lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* 2 (/ (* phi2 (* (sin lambda1) (sin phi1))) (cos lambda1))) (* (cos phi1) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))) (+ (* -1/720 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* 1/24 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))) (+ (* -1/720 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* 1/24 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi2 2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))) (* (pow phi2 2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (- (+ (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* -2 (* phi2 (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi2 (+ (* -2 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* phi2 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi2 (+ (* -2 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* phi2 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (+ (* phi2 (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow phi2 2) (pow (sin phi1) 2)) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (/ (* phi2 (pow (sin phi1) 3)) (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (* -1/3 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1 (/ (pow (sin phi1) 4) (* (pow (cos lambda1) 3) (pow (cos phi1) 3)))) (* -1/2 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))))) (* -1 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1/3 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1 (/ (pow (sin phi1) 4) (* (pow (cos lambda1) 3) (pow (cos phi1) 3)))) (* -1/2 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* 1/6 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))))) (* -1/3 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))) (+ (* -1 (/ (pow (sin phi1) 4) (* (pow (cos lambda1) 3) (pow (cos phi1) 3)))) (* -1/2 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))))) (* -1 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi1 phi2)))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi2 (+ phi1 (* -1/6 (* phi1 (pow phi2 2)))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* 1/120 (* phi1 (pow phi2 2)))))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* (pow phi2 2) (+ (* -1/5040 (* phi1 (pow phi2 2))) (* 1/120 phi1)))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))) (* 1/2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (cos (- (* 1/2 (PI)) phi1))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1/2 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* -1/6 (* phi2 (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* 1/24 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* -1/2 (pow phi2 2)) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (pow phi2 2) #s(hole binary64 (pow phi2 2)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* -1/2 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* 1/24 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 1))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (pow phi2 6) #s(hole binary64 (pow phi2 6)))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ 1 (pow phi2 6))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ (+ 1 (* -1/2 (pow phi2 2))) (pow phi2 6))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (pow phi2 6))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (pow phi2 6))))
#s(approx (/ 1 (pow phi2 6)) #s(hole binary64 (/ 1 (pow phi2 6))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (+ (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (* -2/45 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (sin phi1) 2))))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* phi2 (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (- (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))) (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* 1/3 (* (pow phi2 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (pow (cos (- lambda1 lambda2)) 2)))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* phi2 (- (/ (pow (sin phi1) 3) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* -1 (/ (* (sin phi1) (- (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))) (cos (- lambda1 lambda2)))) (/ (* (sin phi1) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi2 (pow (sin phi1) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi2 (+ (* 7/8 (* phi2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (pow (sin phi1) 3))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 7/8 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi2 2) (+ (* -61/240 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 7/8 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (pow (sin phi1) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* -1/2 (* (pow phi2 2) (pow (sin phi1) 3))) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (sin phi1) 3)) (* 13/120 (* (pow phi2 2) (pow (sin phi1) 3))))) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (sin phi1) 3)) (* (pow phi2 2) (+ (* -41/3024 (* (pow phi2 2) (pow (sin phi1) 3))) (* 13/120 (pow (sin phi1) 3)))))) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1 (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* -1 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (pow (sin phi1) 2)) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (+ (* -1 (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (+ (* phi2 (- (* -1/3 (* phi2 (pow (sin phi1) 2))) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (pow (sin phi1) 2))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (sin phi1) 2))) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (sin phi1) 2))) (* 2/45 (pow (sin phi1) 2)))))) (pow (sin phi1) 2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/240 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/720 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/5040 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (* (* phi2 phi2) 1/120) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6)))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6)))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow phi2 2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 1/24))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (+ 1/24 (* -1/720 (pow phi2 2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/24 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (sin phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* phi2 (+ phi1 (/ (cos (- lambda1 lambda2)) phi2)))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* phi2 (+ phi1 (+ (/ (cos lambda1) phi2) (/ (* lambda2 (sin lambda1)) phi2))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* phi2 (+ phi1 (/ (* lambda2 (sin lambda1)) phi2)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos lambda2) (cos phi1)) phi2)))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (* phi2 (+ phi1 (/ (cos lambda2) phi2)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 phi2))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin phi2))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 phi2))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (pow (cos phi2) 2)))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 -1/720))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (- (* 1/24 (/ 1 (pow phi2 2))) 1/720)))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4))))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1/6 (pow phi2 3))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* (pow phi2 3) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* 1/120 (pow phi2 5))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 5) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 5) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* 1/120 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (* (pow phi2 2) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1/5040 (pow phi2 7))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* -1/5040 (pow phi2 6))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* -1/5040 (pow phi2 4))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* -1/5040 (pow phi2 4))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (* -1/5040 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (* (pow phi2 2) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (* -1/720 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (* (pow phi2 2) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 phi1) (* -1 (/ (cos (- lambda1 lambda2)) phi2)))))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 phi1) (* -1 (/ (+ (cos lambda1) (* lambda2 (sin lambda1))) phi2)))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 phi1) (* -1 (/ (* lambda2 (sin lambda1)) phi2)))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos lambda2) (cos phi1)) phi2)))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 phi1) (* -1 (/ (cos lambda2) phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos phi1) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 3) (- 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) 1/120)))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) (+ 1/120 (/ 1 (pow phi2 4))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- 1/5040 (* 1/120 (/ 1 (pow phi2 2))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- (+ 1/5040 (/ 1/6 (pow phi2 4))) (* 1/120 (/ 1 (pow phi2 2))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- (+ 1/5040 (/ 1/6 (pow phi2 4))) (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))))))))

Calls

15 calls:

Time	Variable		Point	Expression
135.0ms	lambda1	@	-inf	((* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))) (* 1/2 (PI)) 1/2 (PI) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (cos phi1) phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos phi2) phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) (* (sin phi1) (sin phi2)) (sin phi1) (sin phi2) R (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (cos (neg lambda2)) (neg lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/ (cos (- lambda1 lambda2)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* phi1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (+ 1 (* -1 (/ lambda1 lambda2))) 1 (* -1 (/ lambda1 lambda2)) (/ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (cos (- lambda1 lambda2)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+ (cos lambda2) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+ 1 (* -1/2 (pow lambda1 2))) (* -1/2 (pow lambda1 2)) -1/2 (pow lambda1 2) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ 1 lambda2) (/ 1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos lambda1) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)) (* phi2 (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* -1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) (+ 1 (* 1/2 (/ (PI) lambda2))) (* 1/2 (/ (PI) lambda2)) (/ (PI) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (/ (PI) lambda1) (/ lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* -1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (sin (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow (cos lambda1) 3) 3 (pow (cos lambda2) 3) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (pow (sin lambda1) 3) (pow (sin lambda2) 3) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow (cos lambda1) 2) (pow (cos lambda2) 2) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (pow (sin lambda1) 2) (pow (sin lambda2) 2) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* -1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos (* 1/2 (PI))) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* -1 phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) (+ 1 (* 1/2 (/ (PI) phi1))) (* 1/2 (/ (PI) phi1)) (/ (PI) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (cos phi1) 2) (pow (cos phi2) 2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos phi2)) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (pow (sin phi1) 2) (pow (sin phi2) 2) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow (cos phi2) 2) (sin lambda1)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (* (cos phi1) (cos phi2))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* phi1 (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi2) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos phi2) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (pow phi2 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 lambda2)) (* lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (pow phi2 6) 6 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/ 1 (pow phi2 6)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (* -1 (/ (cos lambda2) lambda1)) (/ (cos lambda2) lambda1) (* -1/2 (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+ lambda1 lambda2) (* lambda1 (+ 1 (/ lambda2 lambda1))) (+ 1 (/ lambda2 lambda1)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow (cos (- lambda1 lambda2)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) -1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) (* (cos (* 1/2 (PI))) (sin lambda1)))
117.0ms	lambda2	@	-inf	((* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))) (* 1/2 (PI)) 1/2 (PI) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (cos phi1) phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos phi2) phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) (* (sin phi1) (sin phi2)) (sin phi1) (sin phi2) R (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (cos (neg lambda2)) (neg lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/ (cos (- lambda1 lambda2)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* phi1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (+ 1 (* -1 (/ lambda1 lambda2))) 1 (* -1 (/ lambda1 lambda2)) (/ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (cos (- lambda1 lambda2)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+ (cos lambda2) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+ 1 (* -1/2 (pow lambda1 2))) (* -1/2 (pow lambda1 2)) -1/2 (pow lambda1 2) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ 1 lambda2) (/ 1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos lambda1) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)) (* phi2 (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* -1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) (+ 1 (* 1/2 (/ (PI) lambda2))) (* 1/2 (/ (PI) lambda2)) (/ (PI) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (/ (PI) lambda1) (/ lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* -1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (sin (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow (cos lambda1) 3) 3 (pow (cos lambda2) 3) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (pow (sin lambda1) 3) (pow (sin lambda2) 3) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow (cos lambda1) 2) (pow (cos lambda2) 2) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (pow (sin lambda1) 2) (pow (sin lambda2) 2) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* -1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos (* 1/2 (PI))) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* -1 phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) (+ 1 (* 1/2 (/ (PI) phi1))) (* 1/2 (/ (PI) phi1)) (/ (PI) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (cos phi1) 2) (pow (cos phi2) 2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos phi2)) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (pow (sin phi1) 2) (pow (sin phi2) 2) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow (cos phi2) 2) (sin lambda1)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (* (cos phi1) (cos phi2))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* phi1 (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi2) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos phi2) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (pow phi2 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 lambda2)) (* lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (pow phi2 6) 6 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/ 1 (pow phi2 6)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (* -1 (/ (cos lambda2) lambda1)) (/ (cos lambda2) lambda1) (* -1/2 (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+ lambda1 lambda2) (* lambda1 (+ 1 (/ lambda2 lambda1))) (+ 1 (/ lambda2 lambda1)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow (cos (- lambda1 lambda2)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) -1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) (* (cos (* 1/2 (PI))) (sin lambda1)))
110.0ms	phi2	@	-inf	((* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))) (* 1/2 (PI)) 1/2 (PI) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (cos phi1) phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos phi2) phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) (* (sin phi1) (sin phi2)) (sin phi1) (sin phi2) R (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (cos (neg lambda2)) (neg lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/ (cos (- lambda1 lambda2)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* phi1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (+ 1 (* -1 (/ lambda1 lambda2))) 1 (* -1 (/ lambda1 lambda2)) (/ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (cos (- lambda1 lambda2)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+ (cos lambda2) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+ 1 (* -1/2 (pow lambda1 2))) (* -1/2 (pow lambda1 2)) -1/2 (pow lambda1 2) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ 1 lambda2) (/ 1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos lambda1) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)) (* phi2 (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* -1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) (+ 1 (* 1/2 (/ (PI) lambda2))) (* 1/2 (/ (PI) lambda2)) (/ (PI) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (/ (PI) lambda1) (/ lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* -1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (sin (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow (cos lambda1) 3) 3 (pow (cos lambda2) 3) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (pow (sin lambda1) 3) (pow (sin lambda2) 3) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow (cos lambda1) 2) (pow (cos lambda2) 2) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (pow (sin lambda1) 2) (pow (sin lambda2) 2) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* -1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos (* 1/2 (PI))) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* -1 phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) (+ 1 (* 1/2 (/ (PI) phi1))) (* 1/2 (/ (PI) phi1)) (/ (PI) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (cos phi1) 2) (pow (cos phi2) 2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos phi2)) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (pow (sin phi1) 2) (pow (sin phi2) 2) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow (cos phi2) 2) (sin lambda1)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (* (cos phi1) (cos phi2))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* phi1 (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi2) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos phi2) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (pow phi2 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 lambda2)) (* lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (pow phi2 6) 6 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/ 1 (pow phi2 6)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (* -1 (/ (cos lambda2) lambda1)) (/ (cos lambda2) lambda1) (* -1/2 (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+ lambda1 lambda2) (* lambda1 (+ 1 (/ lambda2 lambda1))) (+ 1 (/ lambda2 lambda1)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow (cos (- lambda1 lambda2)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) -1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) (* (cos (* 1/2 (PI))) (sin lambda1)))
95.0ms	phi2	@	inf	((* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))) (* 1/2 (PI)) 1/2 (PI) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (cos phi1) phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos phi2) phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) (* (sin phi1) (sin phi2)) (sin phi1) (sin phi2) R (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (cos (neg lambda2)) (neg lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/ (cos (- lambda1 lambda2)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* phi1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (+ 1 (* -1 (/ lambda1 lambda2))) 1 (* -1 (/ lambda1 lambda2)) (/ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (cos (- lambda1 lambda2)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+ (cos lambda2) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+ 1 (* -1/2 (pow lambda1 2))) (* -1/2 (pow lambda1 2)) -1/2 (pow lambda1 2) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ 1 lambda2) (/ 1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos lambda1) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)) (* phi2 (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* -1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) (+ 1 (* 1/2 (/ (PI) lambda2))) (* 1/2 (/ (PI) lambda2)) (/ (PI) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (/ (PI) lambda1) (/ lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* -1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (sin (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow (cos lambda1) 3) 3 (pow (cos lambda2) 3) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (pow (sin lambda1) 3) (pow (sin lambda2) 3) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow (cos lambda1) 2) (pow (cos lambda2) 2) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (pow (sin lambda1) 2) (pow (sin lambda2) 2) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* -1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos (* 1/2 (PI))) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* -1 phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) (+ 1 (* 1/2 (/ (PI) phi1))) (* 1/2 (/ (PI) phi1)) (/ (PI) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (cos phi1) 2) (pow (cos phi2) 2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos phi2)) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (pow (sin phi1) 2) (pow (sin phi2) 2) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow (cos phi2) 2) (sin lambda1)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (* (cos phi1) (cos phi2))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* phi1 (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi2) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos phi2) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (pow phi2 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 lambda2)) (* lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (pow phi2 6) 6 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/ 1 (pow phi2 6)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (* -1 (/ (cos lambda2) lambda1)) (/ (cos lambda2) lambda1) (* -1/2 (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+ lambda1 lambda2) (* lambda1 (+ 1 (/ lambda2 lambda1))) (+ 1 (/ lambda2 lambda1)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow (cos (- lambda1 lambda2)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) -1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) (* (cos (* 1/2 (PI))) (sin lambda1)))
91.0ms	lambda1	@	inf	((* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))) (* 1/2 (PI)) 1/2 (PI) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (cos phi1) phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos phi2) phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) lambda1 (cos lambda2) lambda2 (* (sin lambda1) (sin lambda2)) (sin lambda1) (sin lambda2) (* (sin phi1) (sin phi2)) (sin phi1) (sin phi2) R (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (cos (neg lambda2)) (neg lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/ (cos (- lambda1 lambda2)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* phi1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (+ 1 (* -1 (/ lambda1 lambda2))) 1 (* -1 (/ lambda1 lambda2)) (/ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (cos (- lambda1 lambda2)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+ (cos lambda2) (* phi1 phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (cos lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+ 1 (* -1/2 (pow lambda1 2))) (* -1/2 (pow lambda1 2)) -1/2 (pow lambda1 2) 2 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ 1 lambda2) (/ 1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (cos lambda1) (* (cos phi2) (cos phi1)) (* (sin phi2) (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (cos lambda2) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (sin phi2) (sin phi1)) (* phi2 (sin phi1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* -1 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) (+ 1 (* 1/2 (/ (PI) lambda2))) (* 1/2 (/ (PI) lambda2)) (/ (PI) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (/ (PI) lambda1) (/ lambda2 lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* -1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (sin (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow (cos lambda1) 3) 3 (pow (cos lambda2) 3) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (pow (sin lambda1) 3) (pow (sin lambda2) 3) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow (cos lambda1) 2) (pow (cos lambda2) 2) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (pow (sin lambda1) 2) (pow (sin lambda2) 2) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* -1 phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos (* 1/2 (PI))) (sin phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* -1 phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) (+ 1 (* 1/2 (/ (PI) phi1))) (* 1/2 (/ (PI) phi1)) (/ (PI) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (+ phi2 (* 1/2 (PI))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ phi1 (+ phi2 (* 1/2 (PI)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (- (+ phi2 (* 1/2 (PI))) phi1) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow (cos phi1) 2) (pow (cos phi2) 2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (* (cos phi1) (cos phi2)) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (pow (sin phi1) 2) (pow (sin phi2) 2) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow (cos phi2) 2) (sin lambda1)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (* (cos lambda1) (* (cos phi1) (cos phi2))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* phi1 (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (sin (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (- (* lambda1 lambda1) (* lambda2 lambda2)) (* lambda1 lambda1) (* lambda2 lambda2) (+ lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi1) (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* 1/120 (* phi1 phi1)) 1/6) (* 1/120 (* phi1 phi1)) 1/120 (* phi1 phi1) 1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)) (sin phi2) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi2) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi2) (cos (- lambda1 lambda2))) (cos phi2) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (pow phi2 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 lambda2)) (* lambda1 lambda2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (sin (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (pow phi2 6) 6 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/ 1 (pow phi2 6)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+ (sin lambda1) (/ (cos lambda1) lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (* -1 (/ (cos lambda2) lambda1)) (/ (cos lambda2) lambda1) (* -1/2 (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+ lambda1 lambda2) (* lambda1 (+ 1 (/ lambda2 lambda1))) (+ 1 (/ lambda2 lambda1)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow (cos (- lambda1 lambda2)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (pow (* (sin phi2) (sin phi1)) 3) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) -1/6 (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/120) 1/6) (* (* phi2 phi2) 1/120) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/5040) 1/120) -1/5040 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (cos phi1) (cos phi2)) (cos phi2) (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (+ (* (* phi2 phi2) -1/720) 1/24) -1/720 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (cos (- lambda1 lambda2)) (cos phi2)) (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) (* (cos (* 1/2 (PI))) (sin lambda1)))

rewrite2.2s (6.6%)

Memory

61.8MiB live, 3 420.7MiB allocated; 1.7s collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	12695	197441
0	14091	197441
0	14091	191956

Stop Event

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

Counts

4 224 → 4 311

Calls

Call 1

Inputs
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
#s(literal 1/2 binary64)
(PI.f64)
(asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(cos.f64 phi1)
phi1
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(cos.f64 phi2)
phi2
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(cos.f64 lambda1)
lambda1
(cos.f64 lambda2)
lambda2
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(sin.f64 lambda1)
(sin.f64 lambda2)
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(sin.f64 phi1)
(sin.f64 phi2)
R
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(asin.f64 #s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(neg.f64 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))
(.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))
(/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))
(*.f64 phi1 phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))
(+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2)))
(fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #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 phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))
(cos.f64 #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 (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(literal -1 binary64)
(.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))
#s(literal 1 binary64)
(*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))
(/.f64 lambda1 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))
(.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))
(/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
(.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))
(/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2)))
(+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))
(+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)))
(*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))
#s(approx (cos lambda2) #s(literal 1 binary64))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))
(.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
(*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))
(+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))
(/.f64 (cos.f64 lambda1) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))
(.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 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 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
(*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(literal -1/2 binary64)
(pow.f64 lambda1 #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- ( -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1)))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- ( -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))
(.f64 lambda1 #s(approx (- ( -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))
(*.f64 #s(literal -1/2 binary64) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))
(.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) lambda1)
(sin.f64 (neg.f64 lambda2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))
(.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2))
(cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))))))
#s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))
(.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
(*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
(-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) lambda2)
(/.f64 #s(literal 1 binary64) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (cos lambda1) #s(literal 1 binary64))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))
(fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))
(*.f64 phi2 (sin.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
(-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)
(+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))
(*.f64 #s(literal -1 binary64) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))
(sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))
(-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1)
#s(approx (+ lambda2 (* 1/2 (PI))) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1)))
(sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))
(-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1)
#s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))))
(.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))
(*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))
(/.f64 (PI.f64) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
(*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1))
(/.f64 (PI.f64) lambda1)
(/.f64 lambda2 lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
(-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)
(+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))
(sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))))
(sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
(*.f64 #s(literal -1 binary64) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))
(sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))
(-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2)
#s(approx (+ lambda1 (* 1/2 (PI))) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))))
(.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))
(+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))
(/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin 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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.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))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))
(*.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2))
#s(approx (sin lambda1) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(sin.f64 (-.f64 lambda1 lambda2))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
(fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))
(*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))
(pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))
(pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))
(-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))
(*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))))
(sin.f64 #s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))
(*.f64 #s(literal -1 binary64) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))))
(sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))
#s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))
(*.f64 #s(literal -1 binary64) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.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 lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)))
(sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))
#s(approx (+ phi1 (* 1/2 (PI))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))))
(sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))
#s(approx (+ phi1 (* 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
(.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))
(*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))
(/.f64 (PI.f64) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))
(sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))
#s(approx (+ phi2 (* 1/2 (PI))) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
(+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
(sin.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
(-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
(+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
(sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi1))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1)))))
(+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1))))
(sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1))
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) R)
(acos.f64 #s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow.f64 (cos.f64 phi2) #s(literal 2 binary64))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (sin.f64 phi2) #s(literal 2 binary64))
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(acos.f64 #s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))
(-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
(.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))
(-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
(.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
(.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
(-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
(pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))
(/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi1 (sin.f64 phi2)))
(*.f64 phi1 (sin.f64 phi2))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)))
(sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi2 (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 phi2 phi2)
(cos.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
#s(literal 1/24 binary64)
(.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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))
(-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))
(*.f64 lambda1 lambda1)
(*.f64 lambda2 lambda2)
#s(approx (+ lambda1 lambda2) lambda2)
(.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 (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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.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)))
(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))
(fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1))
#s(literal 1/120 binary64)
(*.f64 phi1 phi1)
#s(literal 1/6 binary64)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2))
#s(approx (sin phi2) phi2)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(pow.f64 phi2 #s(literal 2 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
#s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64)))
#s(approx (cos phi2) #s(literal 1 binary64))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1))
(cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
(.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
(+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))
(*.f64 lambda1 lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
(.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))))))
#s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))))
(.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))
(pow.f64 phi2 #s(literal 6 binary64))
#s(literal 6 binary64)
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))
(.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 (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(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 (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2))))
(*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) 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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(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 (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2))))
(*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) 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)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) R)
(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 lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))
(.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(/.f64 #s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1)
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))
(/.f64 (cos.f64 lambda2) lambda1)
(*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))) R)
(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1)))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1)))))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1)))))
#s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))
(*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1)))
#s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
(.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))
(.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2))
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #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 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64))
#s(literal -1/6 binary64)
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2)) #s(literal 1/6 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))
(.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))
(fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx R #s(hole binary64 R))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) #s(hole binary64 (* R (acos (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (cos lambda1) #s(hole binary64 1))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/24 (pow lambda1 2)) 1/2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/24 (* -1/720 (pow lambda1 2)))) 1/2)))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (sin lambda1) #s(hole binary64 lambda1))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* 1/120 (pow lambda1 2)) 1/6))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/120 (* -1/5040 (pow lambda1 2)))) 1/6))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (neg lambda2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg lambda2)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (neg lambda2))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* -1 (/ (* lambda1 (* (cos phi1) (sin (neg lambda2)))) phi2)) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda1 (+ (* -1 (/ (* (cos phi1) (sin (neg lambda2))) phi2)) (* -1/2 (/ (* lambda1 (* (cos phi1) (cos (neg lambda2)))) phi2)))) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda1 (+ (* -1 (/ (* (cos phi1) (sin (neg lambda2))) phi2)) (* lambda1 (+ (* -1/2 (/ (* (cos phi1) (cos (neg lambda2))) phi2)) (* 1/6 (/ (* lambda1 (* (cos phi1) (sin (neg lambda2)))) phi2)))))) (/ (* (cos phi1) (cos (neg lambda2))) phi2)))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (/ (cos (neg lambda2)) phi2)))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (+ (* -1 (/ (* lambda1 (sin (neg lambda2))) phi2)) (/ (cos (neg lambda2)) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) phi2)) (* -1/2 (/ (* lambda1 (cos (neg lambda2))) phi2)))) (/ (cos (neg lambda2)) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) phi2)) (* lambda1 (+ (* -1/2 (/ (cos (neg lambda2)) phi2)) (* 1/6 (/ (* lambda1 (sin (neg lambda2))) phi2)))))) (/ (cos (neg lambda2)) phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (* phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (+ (* -1 (* lambda1 (sin (neg lambda2)))) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (+ (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg lambda2)) (+ (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))) (* phi1 phi2)))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ 1 (* phi1 phi2))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ 1 (+ (* lambda1 lambda2) (* phi1 phi2)))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ 1 (+ (* lambda1 (+ lambda2 (* -1/2 lambda1))) (* phi1 phi2)))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ 1 (+ (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))) (* phi1 phi2)))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (+ (* lambda1 lambda2) (* phi1 phi2))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (+ (* lambda1 (+ lambda2 (* -1/6 (* (pow lambda1 2) lambda2)))) (* phi1 phi2))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (+ (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* 1/120 (* (pow lambda1 2) lambda2)))))) (* phi1 phi2))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 lambda2))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (+ lambda2 (* -1 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (+ 1 (* -1 (/ lambda1 lambda2)))))
#s(approx (* -1 (/ lambda1 lambda2)) #s(hole binary64 (* -1 (/ lambda1 lambda2))))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* -1/2 (/ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) phi1)))) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* lambda1 (+ (* -1/2 (/ (* (cos phi2) (cos (neg lambda2))) phi1)) (* 1/6 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)))))) (/ (* (cos phi2) (cos (neg lambda2))) phi1)))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (/ (cos (neg lambda2)) phi1)))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (+ (* -1 (/ (* lambda1 (sin (neg lambda2))) phi1)) (/ (cos (neg lambda2)) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) phi1)) (* -1/2 (/ (* lambda1 (cos (neg lambda2))) phi1)))) (/ (cos (neg lambda2)) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) phi1)) (* lambda1 (+ (* -1/2 (/ (cos (neg lambda2)) phi1)) (* 1/6 (/ (* lambda1 (sin (neg lambda2))) phi1)))))) (/ (cos (neg lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (neg lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* -1 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* -1/2 (/ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) phi1)))) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin (neg lambda2))) phi1)) (* lambda1 (+ (* -1/2 (/ (* (cos phi2) (cos (neg lambda2))) phi1)) (* 1/6 (/ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) phi1)))))) (/ (* (cos phi2) (cos (neg lambda2))) phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (sin (neg lambda2))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi1) (cos (neg lambda2))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi1) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi1) (sin (neg lambda2))))))))) (* (cos phi1) (cos (neg lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 1))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 1))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (/ 1 lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ lambda1 (/ 1 lambda2))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/2 (/ lambda1 lambda2)))) (/ 1 lambda2))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* lambda1 (- (* -1/6 lambda1) (* 1/2 (/ 1 lambda2)))))) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* -1/2 (/ (pow lambda1 2) lambda2)) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* (pow lambda1 2) (- (* 1/24 (/ (pow lambda1 2) lambda2)) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* (pow lambda1 2) (- (* (pow lambda1 2) (+ (* -1/720 (/ (pow lambda1 2) lambda2)) (* 1/24 (/ 1 lambda2)))) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))))))))
#s(approx (+ 1 (* -1/2 (pow lambda1 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/2 (pow lambda1 2))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (* -1/2 (pow lambda1 2)) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (pow lambda1 2) #s(hole binary64 (pow lambda1 2)))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (sin (neg lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
#s(approx (* -1/2 lambda1) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 -1))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ -1 lambda1)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ (- (/ lambda1 lambda2) 1) lambda1)))
#s(approx (/ 1 lambda1) #s(hole binary64 (/ 1 lambda1)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi1) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* -1 lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (/ (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))) lambda1)))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (/ (PI) lambda1) #s(hole binary64 (/ (PI) lambda1)))
#s(approx (/ lambda2 lambda1) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2)))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2))))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos lambda2) (cos phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (sin lambda2))) (* phi1 (+ (sin phi2) (/ (* (cos lambda2) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda2) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* lambda1 (* (cos phi2) (sin lambda2)))))) (* (cos phi2) (sin lambda2)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda2) (cos phi2)) phi1))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos lambda2) (cos phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (/ (* lambda1 (* (cos phi2) (sin lambda2))) phi1) (/ (* (cos lambda2) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* -1/2 (/ (* lambda1 (* (cos lambda2) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda2)) phi1))) (/ (* (cos lambda2) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (/ (* (cos lambda2) (cos phi2)) phi1)) (* -1/6 (/ (* lambda1 (* (cos phi2) (sin lambda2))) phi1)))) (/ (* (cos phi2) (sin lambda2)) phi1))) (/ (* (cos lambda2) (cos phi2)) phi1)))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (/ (* (cos lambda2) (cos phi2)) phi1)))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (/ (* lambda1 (* (cos phi2) (sin lambda2))) phi1) (/ (* (cos lambda2) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (/ (* lambda1 (* (cos lambda2) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda2)) phi1))) (/ (* (cos lambda2) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (/ (* (cos lambda2) (cos phi2)) phi1)) (* -1/6 (/ (* lambda1 (* (cos phi2) (sin lambda2))) phi1)))) (/ (* (cos phi2) (sin lambda2)) phi1))) (/ (* (cos lambda2) (cos phi2)) phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (cos phi1)))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* lambda1 (* (cos phi1) (sin lambda2)))))) (* (cos phi1) (sin lambda2)))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow lambda1 2) (cos lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow lambda1 2) (cos lambda2))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) #s(hole binary64 (acos (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 3))) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (sin lambda2))) (* (cos lambda2) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi1) (sin lambda2))))) (* (cos lambda2) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (cos phi1))) (* lambda1 (- (/ (* (cos phi1) (pow (sin lambda2) 3)) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda2) 2)) (cos lambda2))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (cos lambda2))))) (* -1 (* (cos phi1) (sin lambda2))))) (* (cos lambda2) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (* (pow (cos lambda2) 3) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (* (pow (cos lambda2) 3) (cos phi1)))) (* (pow (cos lambda2) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (* (pow (cos lambda2) 3) (cos phi1))) (* lambda1 (* (cos phi1) (pow (sin lambda2) 3))))) (* (pow (cos lambda2) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (* (pow (cos lambda2) 3) (cos phi1))) (* lambda1 (+ (* 7/8 (* lambda1 (* (pow (cos lambda2) 3) (cos phi1)))) (* (cos phi1) (pow (sin lambda2) 3)))))) (* (pow (cos lambda2) 3) (cos phi1)))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (pow (sin lambda2) 3)))) (pow (cos lambda2) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (+ (* 7/8 (* lambda1 (pow (cos lambda2) 3))) (pow (sin lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 1))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (+ 1 (* -3/2 (pow lambda1 2)))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 7/8 (pow lambda1 2)) 3/2)))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 7/8 (* -61/240 (pow lambda1 2)))) 3/2)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (pow (sin lambda2) 3))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (* (pow lambda1 2) (pow (sin lambda2) 3))) (pow (sin lambda2) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* 13/120 (* (pow lambda1 2) (pow (sin lambda2) 3))))) (pow (sin lambda2) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* (pow lambda1 2) (+ (* -41/3024 (* (pow lambda1 2) (pow (sin lambda2) 3))) (* 13/120 (pow (sin lambda2) 3)))))) (pow (sin lambda2) 3)))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (pow lambda1 3)))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* -1/2 (pow lambda1 2))))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* (pow lambda1 2) (- (* 13/120 (pow lambda1 2)) 1/2))))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 13/120 (* -41/3024 (pow lambda1 2)))) 1/2))))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (pow (cos lambda2) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (pow (cos lambda2) 2)) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 1/3 (pow (cos lambda2) 2)))) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (pow (cos lambda2) 2)) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (+ (* 1/3 (pow (cos lambda2) 2)) (* (pow lambda1 2) (+ (* -2/45 (pow (cos lambda2) 2)) (* 2/45 (pow (sin lambda2) 2))))))) (pow (sin lambda2) 2)))) (pow (cos lambda2) 2))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 1))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* -1 (pow lambda1 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/3 (pow lambda1 2)) 1)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/3 (* -2/45 (pow lambda1 2)))) 1)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (pow (sin lambda2) 2))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/3 (* (pow lambda1 2) (pow (sin lambda2) 2))) (pow (sin lambda2) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 2/45 (* (pow lambda1 2) (pow (sin lambda2) 2))))) (pow (sin lambda2) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* (pow lambda1 2) (+ (* -1/315 (* (pow lambda1 2) (pow (sin lambda2) 2))) (* 2/45 (pow (sin lambda2) 2)))))) (pow (sin lambda2) 2)))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (pow lambda1 2)))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1/3 (pow lambda1 2))))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* (pow lambda1 2) (- (* 2/45 (pow lambda1 2)) 1/3))))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 2/45 (* -1/315 (pow lambda1 2)))) 1/3))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (* 1/12 (* (cos lambda2) (sin lambda2)))))))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (+ (* 1/12 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/144 (* (cos lambda2) (sin lambda2))) (+ (* -1/240 (* (cos lambda2) (sin lambda2))) (+ (* -1/720 (* (cos lambda2) (sin lambda2))) (* -1/5040 (* (cos lambda2) (sin lambda2))))))))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (cos lambda2) (sin lambda2)))) (* (cos lambda2) (sin lambda2))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* 1/120 (* (pow lambda1 2) (* (cos lambda2) (sin lambda2))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (cos lambda2) (sin lambda2)))) (* 1/120 (* (cos lambda2) (sin lambda2)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/24 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* 1/24 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))) (+ (* (cos phi1) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))) (+ (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* 1/24 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))) (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/24 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))))) (* (cos (neg lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))) (* (cos (neg lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/4 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/4 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* 1/48 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/4 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (pow lambda1 2) (+ (* -1/1440 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/48 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (* -1/2 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (* (pow lambda1 2) (+ (* -1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* 1/24 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+ (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (* (pow lambda1 2) (+ (* -1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/24 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* lambda1 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2)))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* 1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* -2 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))))) (* -1 (/ (* (cos phi1) (* (cos phi2) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda1 (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* lambda1 (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda1 (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* lambda1 (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda1 (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* lambda2 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (+ (* lambda1 (- (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 2 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (/ (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* 2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 2 (* lambda1 (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* (pow lambda1 2) (- (+ (* -1/144 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/240 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/5040 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* 1/120 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* 1/24 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/12 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (+ (* -1/2 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* -1/6 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/2 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/2 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* 1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/12 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/2 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* 1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/12 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/144 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/240 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/720 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/120 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* 1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* -1/6 (* (pow lambda1 2) (pow (cos phi2) 2))) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (pow (cos phi2) 2)) (* 1/120 (* (pow lambda1 2) (pow (cos phi2) 2))))) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (+ (* -1/6 (pow (cos phi2) 2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (pow (cos phi2) 2))) (* 1/120 (pow (cos phi2) 2)))))) (pow (cos phi2) 2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2))))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* (cos phi1) (cos phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2))))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* (pow lambda1 2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (- (* 1/3 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* (pow lambda1 2) (- (+ (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (- (+ (* 1/3 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (- (* -2/45 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* 1/3 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (* -1/720 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))))) (+ (* -1/2 (/ (* (cos phi1) (* (cos phi2) (- (* -1 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (* 1/24 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))))) (* -1/2 (/ (* (pow (cos phi1) 3) (pow (cos phi2) 3)) (* lambda2 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* -1 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -2/45 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* lambda2 (* (cos phi1) (cos phi2))))) (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow lambda1 2) (+ (* -1/2 (* lambda2 (* (cos phi1) (cos phi2)))) (* 1/24 (* (pow lambda1 2) (* lambda2 (* (cos phi1) (cos phi2))))))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (* (pow lambda1 2) (+ (* -1/2 (* lambda2 (* (cos phi1) (cos phi2)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* lambda2 (* (cos phi1) (cos phi2))))) (* 1/24 (* lambda2 (* (cos phi1) (cos phi2)))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (/ (* lambda1 (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* (pow lambda1 2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* lambda1 (+ (* (pow lambda1 2) (- (+ (* (pow lambda1 2) (- (+ (* (pow lambda1 2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+ (/ (* (cos phi1) (* (cos phi2) (* (+ (* -1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/360 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4)) (/ (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (/ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (- (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 4))))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (* -1 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))))) (/ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (pow lambda1 2) (+ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* lambda1 (+ (* (cos phi1) (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (* (pow lambda1 2) (+ (* (cos phi1) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))) (* (pow lambda1 2) (+ (* (cos phi1) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (pow lambda1 2) (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* lambda1 (+ (* (cos phi2) (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* (cos phi2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (pow lambda1 2) (+ (* (cos phi2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow lambda1 2) (* (cos phi2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))))))))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* lambda1 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/6 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (pow lambda1 2) (+ (* 1/120 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (+ (* 1/6 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/18 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -2/45 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (+ (* -1/120 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/5040 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (+ (* -1 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -2/45 (* (pow lambda1 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* -1 (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (* (pow lambda1 2) (+ (* 1/12 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))) (+ (* 1/4 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow lambda1 2) (+ (* -1/24 (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* -1/360 (* (cos phi1) (* (cos phi2) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow lambda1 2) (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (* -1 (* (pow lambda1 2) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (pow lambda1 2) (- (* (pow lambda1 2) (- (* -1 (* (pow lambda1 2) (+ (* -1/720 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))) (+ (* 1/48 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/2 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))))) (+ (* -1/4 (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 3))) (* 1/24 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2)))))) (* -1/2 (/ (* (cos phi1) (* (cos phi2) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (pow (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) 2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (* -1 lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* -1 (* lambda1 (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (* -1 lambda2))) (* 1/6 (* lambda1 (sin (* -1 lambda2)))))) (sin (* -1 lambda2)))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* -1 (pow lambda2 2))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (- (pow lambda1 2) (pow lambda2 2))))
#s(approx (* lambda1 lambda1) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda2))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (+ lambda1 lambda2)))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (- (+ (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* lambda1 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 3))) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (cos lambda2))) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))))) (pow (cos lambda2) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda2) 2))) (cos lambda2))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (cos lambda2))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda2)))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (cos lambda2)))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (+ (* -3/2 (cos lambda2)) (* lambda1 (- (/ (pow (sin lambda2) 3) (pow (cos lambda2) 2)) (+ (* -1 (/ (* (sin lambda2) (- (* -3/2 (cos lambda2)) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (cos lambda2))) (+ (* -1 (/ (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))) (cos lambda2))) (/ (* (sin lambda2) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (pow (cos lambda2) 2))))))) (+ (* -1 (cos lambda2)) (+ (* -1 (/ (pow (sin lambda2) 2) (cos lambda2))) (/ (pow (sin lambda2) 2) (cos lambda2)))))) (* -1 (sin lambda2)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (pow (sin lambda2) 3)))) (pow (cos lambda2) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* lambda1 (+ (* 7/8 (* lambda1 (pow (cos lambda2) 3))) (pow (sin lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda1 2) (pow (cos lambda2) 3))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* 7/8 (* (pow lambda1 2) (pow (cos lambda2) 3))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -3/2 (pow (cos lambda2) 3)) (* (pow lambda1 2) (+ (* -61/240 (* (pow lambda1 2) (pow (cos lambda2) 3))) (* 7/8 (pow (cos lambda2) 3)))))) (pow (cos lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (pow (sin lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (* (pow lambda1 2) (pow (sin lambda2) 3))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* 13/120 (* (pow lambda1 2) (pow (sin lambda2) 3))))) (pow (sin lambda2) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda1 3) (+ (* (pow lambda1 2) (+ (* -1/2 (pow (sin lambda2) 3)) (* (pow lambda1 2) (+ (* -41/3024 (* (pow lambda1 2) (pow (sin lambda2) 3))) (* 13/120 (pow (sin lambda2) 3)))))) (pow (sin lambda2) 3)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (+ (* -1 (pow (cos lambda2) 2)) (pow (sin lambda2) 2)))) (* (cos lambda2) (sin lambda2)))) (pow (cos lambda2) 2))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* lambda1 (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (pow (sin lambda2) 2)) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* -1 (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* lambda1 (+ (* lambda1 (- (* -1/3 (* lambda1 (pow (sin lambda2) 2))) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))) (pow (sin lambda2) 2))) (* (cos lambda2) (sin lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (pow (sin lambda2) 2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/3 (* (pow lambda1 2) (pow (sin lambda2) 2))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* 2/45 (* (pow lambda1 2) (pow (sin lambda2) 2))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* (pow lambda1 2) (+ (* -1/3 (pow (sin lambda2) 2)) (* (pow lambda1 2) (+ (* -1/315 (* (pow lambda1 2) (pow (sin lambda2) 2))) (* 2/45 (pow (sin lambda2) 2)))))) (pow (sin lambda2) 2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (sin lambda2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (* -1/6 (* (cos lambda2) (sin lambda2)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (* 1/12 (* (cos lambda2) (sin lambda2)))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* (cos lambda2) (sin lambda2)) (* (pow lambda1 2) (+ (* -1/2 (* (cos lambda2) (sin lambda2))) (+ (* -1/6 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* 1/120 (* (cos lambda2) (sin lambda2))) (+ (* 1/24 (* (cos lambda2) (sin lambda2))) (+ (* 1/12 (* (cos lambda2) (sin lambda2))) (* (pow lambda1 2) (+ (* -1/144 (* (cos lambda2) (sin lambda2))) (+ (* -1/240 (* (cos lambda2) (sin lambda2))) (+ (* -1/720 (* (cos lambda2) (sin lambda2))) (* -1/5040 (* (cos lambda2) (sin lambda2))))))))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda2)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda1)))
#s(approx (* -1 (/ lambda2 lambda1)) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 1))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (* lambda1 lambda2) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (cos lambda2)))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (/ (cos lambda2) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (/ (+ (cos lambda2) (* lambda1 (sin lambda2))) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (/ (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2)))))) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (cos lambda2) (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (cos lambda2)) (* -1 (* lambda1 (sin lambda2)))) (pow lambda1 2))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (* -1 (/ (cos lambda2) lambda1))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (/ (+ (* -1 (cos lambda2)) (* -1 (* lambda1 (sin lambda2)))) lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (* -1 (/ (cos lambda2) lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (/ (cos lambda2) lambda1)))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 lambda2))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (+ lambda1 lambda2)))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (/ (+ lambda1 lambda2) lambda1)))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (* (pow (cos phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg lambda2)) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (+ (* lambda1 (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (sin (neg lambda2)) 2)))))) (pow (cos (neg lambda2)) 2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda1 (- (+ (* lambda1 (- (+ (* lambda1 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (+ (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (+ (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (pow (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg lambda2)) 3))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (- (+ (* lambda1 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg lambda2)) 2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin lambda2))))))) (* (cos phi1) (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (* (cos phi1) (cos phi2))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (* (cos phi2) (cos (neg lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/6 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))) (+ (* (cos (neg lambda2)) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg lambda2)))))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (+ (cos (* 1/2 (PI))) (* -1/2 (* lambda1 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (+ (cos (* 1/2 (PI))) (* lambda1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* lambda1 (cos (* 1/2 (PI))))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) #s(hole binary64 (* lambda1 (cos (* 1/2 (PI))))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (PI))) (* -1/6 (* (pow lambda1 2) (cos (* 1/2 (PI)))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (PI))) (* (pow lambda1 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/120 (* (pow lambda1 2) (cos (* 1/2 (PI)))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (cos (* 1/2 (PI))) (* (pow lambda1 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (cos (* 1/2 (PI))))) (* 1/120 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (cos lambda1) #s(hole binary64 (cos lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (sin lambda1) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2)))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (+ (* lambda2 (sin lambda1)) (* phi1 phi2))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 lambda1))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* -1 lambda1)))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (* -1 (/ lambda1 lambda2))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (+ (sin lambda1) (/ (cos lambda1) lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (/ (cos lambda1) lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* -1/2 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2))) (/ (sin (neg lambda2)) lambda1)))))
#s(approx (+ 1 (* -1/2 (pow lambda1 2))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (+ 1 (* -1/2 (pow lambda1 2))) #s(hole binary64 (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 lambda1))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ 1 lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (- (/ 1 lambda2) (/ 1 lambda1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (* -1 lambda1)))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 -1))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (sin phi1) (sin phi2)) (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (pow (cos lambda1) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))
#s(approx (pow (sin lambda1) 3) #s(hole binary64 (pow (sin lambda1) 3)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))))
#s(approx (pow (sin lambda1) 2) #s(hole binary64 (pow (sin lambda1) 2)))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (* (pow (cos phi2) 2) (sin lambda1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 lambda1))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (pow lambda1 2)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (/ lambda2 lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi1) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (pow (cos lambda2) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (- (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (+ 1 (* -1 (/ lambda2 lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ lambda2 (/ 1 lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (* -1/2 (cos lambda2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1/2 (cos lambda2)) (/ (sin lambda2) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1/2 (cos lambda2)) (+ (/ (cos lambda2) (pow lambda1 2)) (/ (sin lambda2) lambda1)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (sin lambda2) lambda1))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda1 (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 1))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (+ 1 (/ lambda2 lambda1))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin lambda1))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1))))) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (/ (cos (neg (+ lambda2 (* -1 lambda1)))) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (neg (+ lambda2 (* -1 lambda1)))) (* phi1 phi2))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (/ (cos (neg (+ lambda2 (* -1 lambda1)))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))) phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (sin (neg lambda2)) (* -1 (/ (cos (neg lambda2)) lambda1))) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (cos (neg lambda2))) (/ (sin (neg lambda2)) lambda1))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (+ (* -1 (/ lambda2 lambda1)) (* -1/2 (/ (PI) lambda1))))))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (- (* -1 (/ (+ (* -1 lambda2) (* -1/2 (PI))) lambda1)) 1)))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (* -1 (/ (+ (* -1 lambda2) (* -1/2 (PI))) lambda1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda1 (- (* -1/2 (/ (PI) lambda1)) 1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda2 (* -1 lambda1))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ lambda2 lambda1)) 1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 lambda2) (/ 1 lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (+ (sin lambda2) (/ (cos lambda2) lambda1)) lambda1))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ lambda2 lambda1)) 1)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1)))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))))))))
#s(approx (cos lambda2) #s(hole binary64 1))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (sin lambda2) #s(hole binary64 lambda2))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* -1/6 (pow lambda2 2))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* 1/120 (pow lambda2 2)) 1/6))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/120 (* -1/5040 (pow lambda2 2)))) 1/6))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 1))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* phi2 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos lambda1) (cos phi1)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (/ (* lambda2 (* (cos phi1) (sin lambda1))) phi2) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi1))) phi2)) (/ (* (cos phi1) (sin lambda1)) phi2))) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) phi2)) (* -1/6 (/ (* lambda2 (* (cos phi1) (sin lambda1))) phi2)))) (/ (* (cos phi1) (sin lambda1)) phi2))) (/ (* (cos lambda1) (cos phi1)) phi2)))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (/ (cos lambda1) phi2)))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (+ (/ (cos lambda1) phi2) (/ (* lambda2 (sin lambda1)) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (cos lambda1)) phi2)) (/ (sin lambda1) phi2))) (/ (cos lambda1) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (cos lambda1) phi2)) (* -1/6 (/ (* lambda2 (sin lambda1)) phi2)))) (/ (sin lambda1) phi2))) (/ (cos lambda1) phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (* phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (* phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda1) (+ (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))) (* phi1 phi2)))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ (cos lambda1) (* phi1 phi2))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (/ (+ lambda2 (* -1 lambda1)) lambda2)))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) phi1)) (* -1/6 (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1)))) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (/ (cos lambda1) phi1)))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (+ (/ (cos lambda1) phi1) (/ (* lambda2 (sin lambda1)) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (cos lambda1)) phi1)) (/ (sin lambda1) phi1))) (/ (cos lambda1) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (cos lambda1) phi1)) (* -1/6 (/ (* lambda2 (sin lambda1)) phi1)))) (/ (sin lambda1) phi1))) (/ (cos lambda1) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos lambda1) (cos phi2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) phi1)) (* -1/6 (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1)))) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (+ (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (cos phi2))))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (cos phi2)) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (cos phi2)))) (* 1/24 (* (cos phi1) (cos phi2)))))))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow lambda2 2) (cos phi1))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow lambda2 2) (cos phi1))))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (* phi2 (sin phi1)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (+ (* -1/2 (* (pow lambda2 2) (cos phi1))) (* phi2 (sin phi1))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (+ (* phi2 (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow lambda2 2) (cos phi1)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos phi1) (+ (* phi2 (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (cos phi1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi1))) (* 1/24 (cos phi1))))))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (+ 1 (* phi1 phi2))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* phi1 phi2)))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (+ 1 (+ (* phi1 phi2) (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (+ 1 (+ (* phi1 phi2) (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (cos lambda1)))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (/ (cos lambda1) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (/ (+ (cos lambda1) (* lambda2 (sin lambda1))) lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* 1/4 (* (pow lambda1 2) lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2)))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* lambda2 (+ (* -1/6 lambda2) (* 1/4 lambda1))))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* 1/4 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/48 (* lambda1 (pow lambda2 2))) (* 1/4 lambda1))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* 1/4 lambda1) (* (pow lambda2 2) (+ (* -1/48 lambda1) (* 1/1440 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2)))
#s(approx (/ 1 lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi1) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ 1 (* 1/2 (/ (PI) lambda2))) #s(hole binary64 (* 1/2 (/ (PI) lambda2))))
#s(approx (+ 1 (* 1/2 (/ (PI) lambda2))) #s(hole binary64 (/ (+ lambda2 (* 1/2 (PI))) lambda2)))
#s(approx (* 1/2 (/ (PI) lambda2)) #s(hole binary64 (* 1/2 (/ (PI) lambda2))))
#s(approx (/ (PI) lambda2) #s(hole binary64 (/ (PI) lambda2)))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (* lambda1 (- (* 1/2 (/ (PI) lambda1)) 1))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (+ lambda2 (* lambda1 (- (* 1/2 (/ (PI) lambda1)) 1)))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (- (* 1/2 (/ (PI) lambda1)) 1)))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (* 1/2 (/ (PI) lambda1))))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI))))))) (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos phi1) (cos (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* -1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) phi1)) (* -1/6 (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1)))) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1)))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (/ (* (cos lambda1) (cos phi2)) phi1)))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (/ (* lambda2 (* (cos lambda1) (cos phi2))) phi1)) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) phi1)) (* -1/6 (/ (* lambda2 (* (cos phi2) (sin lambda1))) phi1)))) (/ (* (cos phi2) (sin lambda1)) phi1))) (/ (* (cos lambda1) (cos phi2)) phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* lambda2 (* (cos phi1) (sin lambda1)))))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow lambda2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow lambda2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* lambda2 (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos lambda1) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (* 1/2 (PI)))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (* (cos lambda1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 3))) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (sin lambda1))) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi1) (sin lambda1))))) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (cos phi1))) (* lambda2 (- (/ (* (cos phi1) (pow (sin lambda1) 3)) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (pow (sin lambda1) 2)) (cos lambda1))) (/ (* (cos phi1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (cos lambda1))))) (* -1 (* (cos phi1) (sin lambda1))))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (* (pow (cos lambda1) 3) (cos phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (* (pow (cos lambda1) 3) (cos phi1)))) (* (pow (cos lambda1) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (* (pow (cos lambda1) 3) (cos phi1))) (* lambda2 (* (cos phi1) (pow (sin lambda1) 3))))) (* (pow (cos lambda1) 3) (cos phi1)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (* (pow (cos lambda1) 3) (cos phi1))) (* lambda2 (+ (* 7/8 (* lambda2 (* (pow (cos lambda1) 3) (cos phi1)))) (* (cos phi1) (pow (sin lambda1) 3)))))) (* (pow (cos lambda1) 3) (cos phi1)))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (pow (sin lambda1) 3)))) (pow (cos lambda1) 3))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (+ (* 7/8 (* lambda2 (pow (cos lambda1) 3))) (pow (sin lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 1))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (+ 1 (* -3/2 (pow lambda2 2)))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 7/8 (pow lambda2 2)) 3/2)))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 7/8 (* -61/240 (pow lambda2 2)))) 3/2)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (pow (sin lambda1) 3))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (+ (* -1/2 (* (pow lambda2 2) (pow (sin lambda1) 3))) (pow (sin lambda1) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* 13/120 (* (pow lambda2 2) (pow (sin lambda1) 3))))) (pow (sin lambda1) 3)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* (pow lambda2 2) (+ (* -41/3024 (* (pow lambda2 2) (pow (sin lambda1) 3))) (* 13/120 (pow (sin lambda1) 3)))))) (pow (sin lambda1) 3)))))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (pow lambda2 3)))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (* (pow lambda2 3) (+ 1 (* -1/2 (pow lambda2 2))))))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (* (pow lambda2 3) (+ 1 (* (pow lambda2 2) (- (* 13/120 (pow lambda2 2)) 1/2))))))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (* (pow lambda2 3) (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 13/120 (* -41/3024 (pow lambda2 2)))) 1/2))))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (pow (cos lambda1) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -1 (pow (cos lambda1) 2)) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 1/3 (pow (cos lambda1) 2)))) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -1 (pow (cos lambda1) 2)) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (+ (* 1/3 (pow (cos lambda1) 2)) (* (pow lambda2 2) (+ (* -2/45 (pow (cos lambda1) 2)) (* 2/45 (pow (sin lambda1) 2))))))) (pow (sin lambda1) 2)))) (pow (cos lambda1) 2))))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 1))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (+ 1 (* -1 (pow lambda2 2)))))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/3 (pow lambda2 2)) 1)))))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/3 (* -2/45 (pow lambda2 2)))) 1)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (pow (sin lambda1) 2))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/3 (* (pow lambda2 2) (pow (sin lambda1) 2))) (pow (sin lambda1) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 2/45 (* (pow lambda2 2) (pow (sin lambda1) 2))))) (pow (sin lambda1) 2)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* (pow lambda2 2) (+ (* -1/315 (* (pow lambda2 2) (pow (sin lambda1) 2))) (* 2/45 (pow (sin lambda1) 2)))))) (pow (sin lambda1) 2)))))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (pow lambda2 2)))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -1/3 (pow lambda2 2))))))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* (pow lambda2 2) (- (* 2/45 (pow lambda2 2)) 1/3))))))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 2/45 (* -1/315 (pow lambda2 2)))) 1/3))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (* (cos lambda1) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (+ (* 1/12 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))) (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))))) (* (cos phi1) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (* (pow lambda2 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+ (* (sin phi1) (sin phi2)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))) (* 1/24 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* -1/2 (* (pow lambda2 2) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow lambda2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* 1/24 (* (pow lambda2 2) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow lambda2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (sin (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos phi1) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (+ (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi1 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (+ (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))) (* (sin lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* -1/6 (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (/ (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) lambda2)))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (/ (+ (* 2 (/ (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) lambda2)))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (+ (* -1 (pow lambda2 2)) (pow lambda1 2))))
#s(approx (* lambda2 lambda2) #s(hole binary64 (pow lambda2 2)))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (- (+ (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* lambda2 (- (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 3))) (pow (cos lambda1) 2)) (+ (* -1 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))))) (+ (* -1 (/ (* (cos phi1) (* (cos phi2) (pow (sin lambda1) 2))) (cos lambda1))) (/ (* (cos phi1) (* (cos phi2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (cos lambda1))))) (* -1 (* (cos phi1) (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (cos lambda1)))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (- (+ (* -3/2 (cos lambda1)) (* lambda2 (- (/ (pow (sin lambda1) 3) (pow (cos lambda1) 2)) (+ (* -1 (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (- (* -3/2 (cos lambda1)) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (cos lambda1))) (/ (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (pow (cos lambda1) 2))))))) (+ (* -1 (cos lambda1)) (+ (* -1 (/ (pow (sin lambda1) 2) (cos lambda1))) (/ (pow (sin lambda1) 2) (cos lambda1)))))) (* -1 (sin lambda1)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (pow (sin lambda1) 3)))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* lambda2 (+ (* 7/8 (* lambda2 (pow (cos lambda1) 3))) (pow (sin lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* -3/2 (* (pow lambda2 2) (pow (cos lambda1) 3))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* 7/8 (* (pow lambda2 2) (pow (cos lambda1) 3))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) #s(hole binary64 (+ (* (pow lambda2 2) (+ (* -3/2 (pow (cos lambda1) 3)) (* (pow lambda2 2) (+ (* -61/240 (* (pow lambda2 2) (pow (cos lambda1) 3))) (* 7/8 (pow (cos lambda1) 3)))))) (pow (cos lambda1) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (pow (sin lambda1) 3))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* -1/2 (* (pow lambda2 2) (pow (sin lambda1) 3))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* 13/120 (* (pow lambda2 2) (pow (sin lambda1) 3))))) (pow (sin lambda1) 3)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) #s(hole binary64 (* (pow lambda2 3) (+ (* (pow lambda2 2) (+ (* -1/2 (pow (sin lambda1) 3)) (* (pow lambda2 2) (+ (* -41/3024 (* (pow lambda2 2) (pow (sin lambda1) 3))) (* 13/120 (pow (sin lambda1) 3)))))) (pow (sin lambda1) 3)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* lambda2 (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (pow (sin lambda1) 2)) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* lambda2 (- (* -1/3 (* lambda2 (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))) (pow (sin lambda1) 2))) (* (cos lambda1) (sin lambda1))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (pow (sin lambda1) 2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/3 (* (pow lambda2 2) (pow (sin lambda1) 2))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* 2/45 (* (pow lambda2 2) (pow (sin lambda1) 2))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ (* (pow lambda2 2) (+ (* -1/3 (pow (sin lambda1) 2)) (* (pow lambda2 2) (+ (* -1/315 (* (pow lambda2 2) (pow (sin lambda1) 2))) (* 2/45 (pow (sin lambda1) 2)))))) (pow (sin lambda1) 2)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (* (cos lambda1) (sin lambda1)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (* lambda2 (+ (* (cos lambda1) (sin lambda1)) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* -1/2 (sin lambda1)) (* -1/6 (sin lambda1)))) (* (pow lambda2 2) (+ (* (cos lambda1) (+ (* 1/120 (sin lambda1)) (+ (* 1/24 (sin lambda1)) (* 1/12 (sin lambda1))))) (* (pow lambda2 2) (* (cos lambda1) (+ (* -1/144 (sin lambda1)) (+ (* -1/240 (sin lambda1)) (+ (* -1/720 (sin lambda1)) (* -1/5040 (sin lambda1)))))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* (cos phi1) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* -1/2 (* lambda2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI))))))) (* lambda2 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* 1/2 (PI)))))))))))) (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))))) (* (cos phi2) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* lambda1 lambda2) (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* lambda2 (+ lambda1 (* (pow lambda1 2) (* lambda2 (- 1/4 (* 1/2 (/ 1 (pow lambda1 2)))))))) (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) #s(hole binary64 (+ (* lambda2 (+ lambda1 (* lambda2 (+ (* -1/6 (* lambda1 lambda2)) (* (pow lambda1 2) (- 1/4 (* 1/2 (/ 1 (pow lambda1 2))))))))) (* (pow lambda1 2) (- (/ 1 (pow lambda1 2)) 1/2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (/ 1 (pow lambda1 2)) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (+ (/ 1 (pow lambda1 2)) (/ lambda2 lambda1)) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (- 1/4 (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))) (/ 1 (pow lambda1 2))) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (- (+ 1/4 (* -1/6 (/ lambda2 lambda1))) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))) (/ 1 (pow lambda1 2))) 1/2)))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (/ -1 (pow lambda1 2))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (- (* -1 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (- (* lambda2 (- (* 1/2 (/ lambda2 (pow lambda1 2))) (/ 1 lambda1))) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) #s(hole binary64 (- (* lambda2 (- (* lambda2 (+ (* 1/6 (/ lambda2 lambda1)) (* 1/2 (/ 1 (pow lambda1 2))))) (/ 1 lambda1))) (/ 1 (pow lambda1 2)))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (/ -1 lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (- (* -1 lambda2) (/ 1 lambda1))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (/ lambda2 lambda1)) 1)) (/ 1 lambda1))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (+ (* 1/6 lambda2) (* 1/2 (/ 1 lambda1)))) 1)) (/ 1 lambda1))))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (/ -1 lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (- (* 1/2 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1))))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (- (* (pow lambda2 2) (+ (* -1/24 (/ (pow lambda2 2) lambda1)) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (* -1 (/ (cos lambda2) lambda1)) #s(hole binary64 (- (* (pow lambda2 2) (+ (* (pow lambda2 2) (- (* 1/720 (/ (pow lambda2 2) lambda1)) (* 1/24 (/ 1 lambda1)))) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (/ 1 lambda1)))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (+ (* -1/2 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (+ (* (pow lambda2 2) (- (* 1/24 (/ (pow lambda2 2) lambda1)) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (/ (cos lambda2) lambda1) #s(hole binary64 (+ (* (pow lambda2 2) (- (* (pow lambda2 2) (+ (* -1/720 (/ (pow lambda2 2) lambda1)) (* 1/24 (/ 1 lambda1)))) (* 1/2 (/ 1 lambda1)))) (/ 1 lambda1))))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 -1/2))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* 1/4 (pow lambda2 2)) 1/2)))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* (pow lambda2 2) (+ 1/4 (* -1/48 (pow lambda2 2)))) 1/2)))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (- (* (pow lambda2 2) (+ 1/4 (* (pow lambda2 2) (- (* 1/1440 (pow lambda2 2)) 1/48)))) 1/2)))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* lambda2 (* (pow (cos phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* (pow (cos phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (pow (sin lambda1) 2)))))) (pow (cos lambda1) 2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* lambda2 (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* lambda2 (- (+ (* lambda2 (- (+ (* lambda2 (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (+ (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (+ (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)) (/ (* (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))) (/ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (/ (* (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (pow (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) 2)))) (+ (/ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (/ (* (pow (sin phi1) 3) (pow (sin phi2) 3)) (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (+ (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi1) 3) (pow (cos phi2) 3))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (- (+ (* lambda2 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (cos phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (* (cos phi1) (cos phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1)))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (cos phi2))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (cos phi2)))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1)))))))) (* (cos phi1) (* (cos phi2) (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI))))))))) (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (* (sin lambda1) (sin (* 1/2 (PI)))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos (* 1/2 (PI))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin (* 1/2 (PI))))) (+ (* -1/2 (* (cos (* 1/2 (PI))) (sin lambda1))) (* lambda2 (+ (* -1/6 (* (sin lambda1) (sin (* 1/2 (PI))))) (* 1/6 (* (cos lambda1) (cos (* 1/2 (PI)))))))))) (* (sin lambda1) (sin (* 1/2 (PI))))))) (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (+ (/ (cos lambda1) lambda2) (/ (* phi1 phi2) lambda2))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (* phi1 phi2) lambda2)))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (+ (cos lambda2) (* phi1 phi2))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2))))))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) #s(hole binary64 lambda2))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) #s(hole binary64 (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2))))))
#s(approx (+ 1 (* 1/2 (/ (PI) lambda2))) #s(hole binary64 1))
#s(approx (+ 1 (* 1/2 (/ (PI) lambda2))) #s(hole binary64 (+ 1 (* 1/2 (/ (PI) lambda2)))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 lambda2))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (* lambda2 (+ 1 (/ (* lambda1 (- (* 1/2 (/ (PI) lambda1)) 1)) lambda2)))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) (* lambda1 lambda2))) (/ 1 lambda1)) (/ 1 lambda2)))))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (* lambda2 (+ (* 1/2 (/ (PI) (* lambda1 lambda2))) (/ 1 lambda1)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (pow (cos lambda2) 3) #s(hole binary64 (pow (cos lambda2) 3)))
#s(approx (pow (sin lambda2) 3) #s(hole binary64 (pow (sin lambda2) 3)))
#s(approx (pow (cos lambda2) 2) #s(hole binary64 (pow (cos lambda2) 2)))
#s(approx (pow (sin lambda2) 2) #s(hole binary64 (pow (sin lambda2) 2)))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (+ (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) #s(hole binary64 (* (pow lambda2 2) (- (/ (pow lambda1 2) (pow lambda2 2)) 1))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* lambda2 (+ 1 (/ lambda1 lambda2)))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda2 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (/ 1 lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (* -1/2 (cos lambda2)) #s(hole binary64 (* -1/2 (cos lambda2))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda2 (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(hole binary64 (* lambda2 (+ (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (sin phi1) (/ (* (cos phi1) (cos (+ lambda1 (* -1 lambda2)))) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) #s(hole binary64 (/ (cos (+ lambda1 (* -1 lambda2))) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (+ (cos (+ lambda1 (* -1 lambda2))) (* phi1 phi2))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (+ (cos lambda1) (* phi1 phi2)) lambda2)))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (* phi1 phi2) lambda2)))))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (sin phi2) (/ (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) #s(hole binary64 (/ (cos (+ lambda1 (* -1 lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))) phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (* -1 lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (* -1 lambda2)))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda2 (- (* -1/2 (/ (PI) lambda2)) 1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) #s(hole binary64 (* -1 (* lambda2 (- (* -1/2 (/ (PI) lambda2)) 1)))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (* lambda1 (- (* 1/2 (/ (PI) lambda1)) 1)) lambda2)) 1)))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (/ (PI) lambda1)) 1) lambda2)) (/ 1 lambda1))))))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) #s(hole binary64 (* -1 (* lambda2 (- (* -1/2 (/ (PI) (* lambda1 lambda2))) (/ 1 lambda1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (cos phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos (* -1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (* -1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) #s(hole binary64 (* R (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (acos (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (* -1 (/ (- (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) lambda2)))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (* -1 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (* -1 (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) #s(hole binary64 (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (- lambda1 (* -1 lambda2))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ lambda1 lambda2)) 1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (+ 1 (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 lambda1) (/ 1 lambda2))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ lambda1 lambda2)) 1)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (+ lambda1 (* -1 lambda2))) 2)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (- (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) #s(hole binary64 (* R (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) #s(hole binary64 (acos (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (/ (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3))) (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3))) (* (pow (sin phi1) 3) (pow (sin phi2) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (* (pow (cos phi2) 3) (pow (cos (+ lambda1 (* -1 lambda2))) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (+ (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (pow (cos (+ lambda1 (* -1 lambda2))) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (- (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) #s(hole binary64 (* R (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) #s(hole binary64 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2)))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) #s(hole binary64 (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI))))))) (* (sin phi1) (sin phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (+ lambda1 (* -1 lambda2)))) (* (cos (+ lambda1 (* -1 lambda2))) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ phi1 (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (* phi1 (+ 1 (* -1/2 (/ (* phi1 (cos (- lambda1 lambda2))) phi2)))) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (+ (* phi1 (+ 1 (* phi1 (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi2)) (* -1/6 phi1))))) (/ (cos (- lambda1 lambda2)) phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* phi1 phi2) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (/ (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2)))) phi1)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda2) (cos phi2)))))) (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda2) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda2) (cos phi2)))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow phi1 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (* (pow phi1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi1 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos phi1)) #s(hole binary64 (+ (cos lambda2) (* (pow phi1 2) (+ (* -1/2 (cos lambda2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos lambda2) (* phi1 phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos lambda2) (* phi1 (+ phi2 (* -1/2 (* phi1 (cos lambda2))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (+ (cos lambda2) (* phi1 (+ phi2 (* phi1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi1 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* -1/6 (* (pow phi1 2) (sin phi2)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* 1/120 (* (pow phi1 2) (sin phi2)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/6 (sin phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin phi2))) (* 1/120 (sin phi2))))))))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 phi2)))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 (+ phi2 (* -1/6 (* (pow phi1 2) phi2))))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* 1/120 (* (pow phi1 2) phi2))))))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi1 (+ phi2 (* (pow phi1 2) (+ (* -1/6 phi2) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) phi2)) (* 1/120 phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/2 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/24 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (/ (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) phi1)))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (/ (* phi1 (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* -1/6 (* phi1 (sin phi2))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi1 2) (+ (* -1/720 (/ (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (+ (/ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/ (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (* 1/24 (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (* 1/24 (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))))))) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1/2 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/24 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/24 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* -1/2 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* 1/24 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi2)) (* (pow phi1 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin (- (* 1/2 (PI)) phi2)))) (* 1/24 (sin (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/6 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi1 (cos (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (+ (* -1 phi1) (* 1/2 (PI)))))
#s(approx (* -1 phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))) (* -1/2 (* phi1 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/6 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI))))))))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2))))))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* phi1 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* -1/6 (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi2) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))) (* (cos phi2) (cos (* 1/2 (PI))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (sin phi2)) (* -1/6 (* (cos phi2) (cos (* 1/2 (PI))))))))) (* (cos phi2) (cos (* 1/2 (PI))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ 1 (* 1/2 (/ (PI) phi1))) #s(hole binary64 (* 1/2 (/ (PI) phi1))))
#s(approx (+ 1 (* 1/2 (/ (PI) phi1))) #s(hole binary64 (/ (+ phi1 (* 1/2 (PI))) phi1)))
#s(approx (* 1/2 (/ (PI) phi1)) #s(hole binary64 (* 1/2 (/ (PI) phi1))))
#s(approx (/ (PI) phi1) #s(hole binary64 (/ (PI) phi1)))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (cos (* 1/2 (PI))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))) (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI)))))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (+ (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (* 2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (+ (* phi1 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* 2 (sin (* 1/2 (PI))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* 2 (sin (* 1/2 (PI)))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* 2 (sin (* 1/2 (PI)))) (* phi1 (+ (cos (* 1/2 (PI))) (+ (* -1 (cos (* 1/2 (PI)))) (* -1 (* phi1 (sin (* 1/2 (PI)))))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (* 2 (sin (* 1/2 (PI)))) (* phi1 (+ (cos (* 1/2 (PI))) (+ (* -1 (cos (* 1/2 (PI)))) (* phi1 (+ (* -1 (sin (* 1/2 (PI)))) (* phi1 (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI))))))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* 1/2 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* -1/2 (* phi1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (+ (* 1/2 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1/6 (sin phi2)) (* 1/2 (* (cos lambda1) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))))) (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* -1 (* phi1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* phi1 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* phi1 (* (cos lambda1) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos lambda1) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (* 2 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))) (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* phi1 (- (+ (* -1 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2)))))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (cos phi2)))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (cos phi2) (* phi1 (sin phi2)))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (cos phi2) (* phi1 (- (* phi1 (- (* -1 (cos phi2)) (+ (* -1 (/ (pow (sin phi2) 2) (cos phi2))) (+ (* -1/2 (cos phi2)) (/ (pow (sin phi2) 2) (cos phi2)))))) (* -1 (sin phi2)))))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (cos phi2) (* phi1 (- (* phi1 (- (+ (* -1 (cos phi2)) (* phi1 (- (* -1 (/ (pow (sin phi2) 3) (pow (cos phi2) 2))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (cos phi2)) (+ (* -1 (/ (pow (sin phi2) 2) (cos phi2))) (* -1/2 (cos phi2))))) (cos phi2))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (cos phi2))) (+ (* -1/2 (cos phi2)) (/ (pow (sin phi2) 2) (cos phi2)))))) (* -1 (sin phi2)))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (cos phi2)))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (cos phi2) (* phi1 (sin phi2)))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (cos phi2) (* phi1 (- (* phi1 (- (* -1 (cos phi2)) (+ (* -1 (/ (pow (sin phi2) 2) (cos phi2))) (* -1/2 (cos phi2))))) (* -1 (sin phi2)))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (cos phi2) (* phi1 (- (* phi1 (- (+ (* -1 (cos phi2)) (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (cos phi2)) (+ (* -1 (/ (pow (sin phi2) 2) (cos phi2))) (* -1/2 (cos phi2))))) (cos phi2))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (cos phi2))) (* -1/2 (cos phi2))))) (* -1 (sin phi2)))))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (pow (cos phi2) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (cos phi2) 2))) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos phi2) 2)) (* 1/3 (* (pow phi1 2) (pow (cos phi2) 2))))) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos phi2) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (cos phi2) 2))) (* 1/3 (pow (cos phi2) 2)))))) (pow (cos phi2) 2))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 1))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* -1 (pow phi1 2)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/3 (pow phi1 2)) 1)))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/3 (* -2/45 (pow phi1 2)))) 1)))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (cos phi2)))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (cos phi2) (* -1 (* phi1 (sin phi2))))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (cos phi2) (* phi1 (- (* -1/2 (* phi1 (cos phi2))) (sin phi2))))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (cos phi2) (* phi1 (- (* phi1 (+ (* -1/2 (cos phi2)) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow phi1 2) (cos phi2))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow phi1 2) (cos phi2))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/2 (cos phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow phi1 2) (pow (sin phi2) 2)) (cos phi2))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (/ (* phi1 (pow (sin phi2) 3)) (pow (cos phi2) 2)) (/ (pow (sin phi2) 2) (cos phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (- (* phi1 (- (* -1/3 (/ (pow (sin phi2) 2) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 4) (pow (cos phi2) 3))) (* -1/2 (/ (pow (sin phi2) 2) (cos phi2)))))) (* -1 (/ (pow (sin phi2) 3) (pow (cos phi2) 2))))) (/ (pow (sin phi2) 2) (cos phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1/3 (/ (pow (sin phi2) 2) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 4) (pow (cos phi2) 3))) (* -1/2 (/ (pow (sin phi2) 2) (cos phi2)))))) (cos phi2))) (+ (* -1/2 (/ (pow (sin phi2) 3) (pow (cos phi2) 2))) (* 1/6 (/ (pow (sin phi2) 3) (pow (cos phi2) 2))))))) (* -1/3 (/ (pow (sin phi2) 2) (cos phi2)))) (+ (* -1 (/ (pow (sin phi2) 4) (pow (cos phi2) 3))) (* -1/2 (/ (pow (sin phi2) 2) (cos phi2)))))) (* -1 (/ (pow (sin phi2) 3) (pow (cos phi2) 2))))) (/ (pow (sin phi2) 2) (cos phi2))))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (pow (sin phi2) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* 2/45 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (sin phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))) (pow (sin phi2) 2)))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi2) (sin lambda1))) (* (cos phi2) (sin lambda1)))) (+ (* phi1 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* phi1 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* phi1 (- (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (sin phi2)) (* 1/6 (sin phi2)))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (* -1/2 (* (cos lambda1) (cos phi2))))))) (* -1 (sin phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (* lambda2 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (/ (* (cos lambda1) (cos phi2)) lambda2)) (* (cos phi2) (sin lambda1))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (* phi1 (- (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))) (* -1 (/ (sin phi2) lambda2))))) (* lambda2 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (/ (* (cos lambda1) (cos phi2)) lambda2)) (* (cos phi2) (sin lambda1)))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (/ (* (cos lambda1) (cos phi2)) lambda2)) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (* lambda2 (* phi1 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))))))) (* lambda2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))) (* -1 (/ (sin phi2) lambda2)))))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (/ (* (cos lambda1) (cos phi2)) lambda2)) (* (cos phi2) (sin lambda1)))) (* phi1 (+ (* lambda2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))) (* -1 (/ (sin phi2) lambda2)))) (* phi1 (+ (* lambda2 (* phi1 (- (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2)))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (sin phi2) lambda2)) (* 1/6 (/ (sin phi2) lambda2))))))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))))))))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (/ (* (cos lambda1) (cos phi2)) lambda2)) (* (cos phi2) (sin lambda1)))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (- (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (- (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))))))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (- (+ (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (+ (* phi1 (- (+ (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2)))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (sin phi2) lambda2)) (* 1/6 (/ (sin phi2) lambda2)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))))))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2))) (* (cos phi2) (sin lambda1)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (/ (* (cos lambda1) (cos phi2)) lambda2))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (- (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (- (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (- (+ (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2)))))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi2) (sin lambda1))) (+ (* phi1 (- (+ (* 2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* phi1 (- (+ (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* phi1 (- (* -2 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1)))))) (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (sin phi2) lambda2)) (* 1/6 (/ (sin phi2) lambda2)))))))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2)))))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (cos phi2) (sin lambda1)) (/ (* phi1 (* (sin lambda1) (sin phi2))) (cos lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (* (cos phi2) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))))) (* -1 (* (cos phi2) (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (* -1/2 (* (cos phi2) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow phi1 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* 1/3 (* (pow phi1 2) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))) (* (pow phi1 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1))))) (* 1/3 (* (cos lambda1) (* (pow (cos phi2) 2) (sin lambda1)))))))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* (pow (cos phi2) 2) (sin lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (sin lambda1))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (sin lambda1)))))) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (sin lambda1))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (sin lambda1)))) (* 1/3 (* (pow (cos phi2) 2) (sin lambda1))))))) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (- (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))) (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* 1/24 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/24 (* (cos lambda1) (cos phi2))))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (cos lambda1) (cos phi2)) lambda2)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (/ (* phi1 (sin phi2)) lambda2) (/ (* (cos lambda1) (cos phi2)) lambda2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2))))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2)) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (sin phi2) lambda2)) (* 1/6 (/ (sin phi2) lambda2)))))) (* -1 (/ (* (cos lambda1) (cos phi2)) lambda2))) (+ (* -1 (/ (pow (sin phi2) 2) (* lambda2 (* (cos lambda1) (cos phi2))))) (* -1/2 (/ (* (cos lambda1) (cos phi2)) lambda2))))) (* -1 (/ (sin phi2) lambda2)))) (/ (* (cos lambda1) (cos phi2)) lambda2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda2 (* (cos lambda1) (cos phi2)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (sin phi2)))) (* lambda2 (* (cos lambda1) (cos phi2))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos lambda1) (cos phi2))) (* phi1 (+ (* -1 (* lambda2 (sin phi2))) (* -1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos lambda1) (cos phi2))) (* phi1 (+ (* -1 (* lambda2 (sin phi2))) (* phi1 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* 1/6 (* lambda2 (* phi1 (sin phi2)))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* 2 (/ (* phi1 (* (sin lambda1) (sin phi2))) (cos lambda1))) (* (cos phi2) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -2 (/ (* (sin phi2) (- (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* (cos lambda1) (cos phi2)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi2) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (cos phi2))))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2))))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (cos phi2)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (cos phi2)))))) (* -2 (/ (* (sin lambda1) (sin phi2)) (cos lambda1))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2)))))) (+ (* -1/720 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))) (+ (* 1/24 (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (* (cos phi2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (cos phi2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow phi1 2) (+ (* (cos phi2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))) (* (pow phi1 2) (* (cos phi2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 3) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi1 2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2)))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow phi1 2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow phi1 2) (+ (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2)))) (* (pow phi1 2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (sin lambda1))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (- (+ (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (pow (sin phi2) 2))))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* -2 (* phi1 (* (cos lambda1) (* (cos phi2) (sin phi2))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi1 (+ (* -2 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* phi1 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (pow (sin phi2) 2))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi1 (+ (* -2 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* phi1 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (+ (* phi1 (+ (* 1/3 (* (cos lambda1) (* (cos phi2) (sin phi2)))) (* (cos lambda1) (* (cos phi2) (sin phi2))))) (pow (sin phi2) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow phi1 2) (pow (sin phi2) 2)) (* (cos lambda1) (cos phi2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (/ (* phi1 (pow (sin phi2) 3)) (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (- (* phi1 (- (* -1/3 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1 (/ (pow (sin phi2) 4) (* (pow (cos lambda1) 3) (pow (cos phi2) 3)))) (* -1/2 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))))) (* -1 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi1 2) (+ (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1 (/ (* (sin phi2) (- (* -1/3 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))) (+ (* -1 (/ (pow (sin phi2) 4) (* (pow (cos lambda1) 3) (pow (cos phi2) 3)))) (* -1/2 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))))) (* (cos lambda1) (cos phi2)))) (+ (* -1/2 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* 1/6 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))))) (* -1/3 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))) (+ (* -1 (/ (pow (sin phi2) 4) (* (pow (cos lambda1) 3) (pow (cos phi2) 3)))) (* -1/2 (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2))))))) (* -1 (/ (pow (sin phi2) 3) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (/ (pow (sin phi2) 2) (* (cos lambda1) (cos phi2)))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* 1/2 (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))) (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* 2 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (* 2 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1 (cos (+ phi2 (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* 1/24 (* (cos phi2) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1/2 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi1 2) (+ (* -1/720 (/ (* (pow phi1 2) (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (/ (* (cos phi2) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 phi1))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6)))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi1 2)) 1/6)))
#s(approx (* 1/120 (* phi1 phi1)) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/6 (* phi1 (* (cos phi2) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* -1/2 (* phi1 (* (cos phi2) (sin (* 1/2 (PI)))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (* 1/2 (PI))))) (* phi1 (+ (* -1/2 (* (cos phi2) (sin (* 1/2 (PI))))) (* 1/6 (* phi1 (* (cos phi2) (cos (* 1/2 (PI)))))))))) (* (cos phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2))))) (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2)))))) (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (+ (cos (+ phi2 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi2)))))) (* 1/2 (+ (* -1/2 (sin (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi2))))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* 1/2 (* phi1 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* -1/2 (* phi1 (sin (* 1/2 (PI))))) (* 1/2 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (* 1/2 (+ (cos (* 1/2 (PI))) (* -1 (cos (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/2 (* phi1 (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/6 (cos (* 1/2 (PI))))))))))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (+ (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (- (* -2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (sin phi2) 2))))) (* -1/3 (pow (sin phi2) 2))))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* 1/3 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (pow (cos (- lambda1 lambda2)) 2)))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* phi1 (sin phi2))))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (- (+ (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* phi1 (- (/ (pow (sin phi2) 3) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* -1 (/ (* (sin phi2) (- (* -3/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (* (sin phi2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (/ (pow (sin phi2) 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi2)))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi1 (pow (sin phi2) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi1 (+ (* 7/8 (* phi1 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (pow (sin phi2) 3))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 7/8 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 7/8 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (sin phi2) 3)) (* 13/120 (* (pow phi1 2) (pow (sin phi2) 3))))) (pow (sin phi2) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (sin phi2) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (sin phi2) 3))) (* 13/120 (pow (sin phi2) 3)))))) (pow (sin phi2) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi1 (- (* phi1 (+ (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi2) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (pow (sin phi2) 2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* -1 (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi1 (- (* phi1 (+ (* phi1 (- (* -1/3 (* phi1 (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (pow (sin phi2) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* 2/45 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (sin phi2) 2))) (* 2/45 (pow (sin phi2) 2)))))) (pow (sin phi2) 2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/240 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/720 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/5040 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* -1/2 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi1 (+ (sin phi2) (* phi1 (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/6 (* phi1 (sin phi2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/24 (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* phi1 (+ phi2 (/ (cos (- lambda1 lambda2)) phi1)))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* phi1 (+ phi2 (+ (/ (cos lambda1) phi1) (/ (* lambda2 (sin lambda1)) phi1))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* phi1 (+ phi2 (/ (* lambda2 (sin lambda1)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (sin phi2)))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (* phi1 (+ phi2 (/ (cos lambda2) phi1)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* (sin phi1) (sin phi2))))
#s(approx (* phi2 (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (sin phi2)))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) 1))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 phi1))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) #s(hole binary64 phi1))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (+ 1 (* 1/2 (/ (PI) phi1))) #s(hole binary64 1))
#s(approx (+ 1 (* 1/2 (/ (PI) phi1))) #s(hole binary64 (+ 1 (* 1/2 (/ (PI) phi1)))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 phi1))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos phi2) 2))))
#s(approx (pow (cos phi1) 2) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (* (cos phi1) (cos phi2))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow (sin phi1) 2) (pow (sin phi2) 2))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* 1/120 (pow phi1 5))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 5) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 5) (- (+ 1/120 (/ 1 (pow phi1 4))) (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* 1/120 (pow phi1 4))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 4) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 4) (- (+ 1/120 (/ 1 (pow phi1 4))) (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 2) (- 1/120 (* 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) phi2))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow (sin phi1) 3) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow (sin phi1) 2) (pow (sin phi2) 2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 phi2) (* -1 (/ (cos (- lambda1 lambda2)) phi1)))))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 phi2) (* -1 (/ (+ (cos lambda1) (* lambda2 (sin lambda1))) phi1)))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 phi2) (* -1 (/ (* lambda2 (sin lambda1)) phi1)))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 phi2) (* -1 (/ (cos lambda2) phi1)))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (sin phi2)) (* -1 (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) #s(hole binary64 (sin (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1/2 (/ (PI) phi1)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (sin phi1) (sin phi2)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 5) (- (* 1/6 (/ 1 (pow phi1 2))) 1/120)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 5) (- (* 1/6 (/ 1 (pow phi1 2))) (+ 1/120 (/ 1 (pow phi1 4))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi1) (* 1/2 (PI))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (sin (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) #s(hole binary64 (* 1/2 (+ (sin (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (/ (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi1 phi2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* -1/2 (* phi2 (cos (- lambda1 lambda2)))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (cos (- lambda1 lambda2))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ phi2 (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (* phi2 (+ 1 (* -1/2 (/ (* phi2 (cos (- lambda1 lambda2))) phi1)))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(hole binary64 (+ (* phi2 (+ 1 (* phi2 (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/6 phi2))))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (/ (cos (- lambda1 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (cos (- lambda1 lambda2))) phi1)) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi1)) (* 1/24 (/ (* (pow phi2 2) (cos (- lambda1 lambda2))) phi1)))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (cos (- lambda1 lambda2)) phi1)) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (cos (- lambda1 lambda2))) phi1)) (* 1/24 (/ (cos (- lambda1 lambda2)) phi1)))))) (/ (cos (- lambda1 lambda2)) phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda2) (cos phi1)))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda2) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda2) (cos phi1)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* (cos lambda2) (cos phi1))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow phi2 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi2) (cos phi1)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* -1/6 (* (pow phi2 2) (sin phi1)))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* 1/120 (* (pow phi2 2) (sin phi1)))))))))
#s(approx (* (sin phi2) (sin phi1)) #s(hole binary64 (* phi2 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/6 (sin phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin phi1))) (* 1/120 (sin phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi1 phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ phi1 (* -1/2 (* phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi1 phi2)))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (* phi1 (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* phi1 phi2) (* phi1 (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* phi1 (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1))) (* phi2 (+ phi1 (* -1/2 (* phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) #s(hole binary64 (+ (* phi1 (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1))) (* phi2 (+ phi1 (* phi2 (+ (* -1/2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* -1/6 (* phi1 phi2)))))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ phi2 (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (* phi2 (+ 1 (* -1/2 (/ (* phi2 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))) (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) #s(hole binary64 (+ (* phi2 (+ 1 (* phi2 (+ (* -1/2 (/ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) phi1)) (* -1/6 phi2))))) (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (/ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) phi1)) (* 1/24 (/ (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)))) (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) phi1)) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (* 1/24 (/ (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) phi1)))))) (+ (/ (* (cos lambda1) (cos lambda2)) phi1) (/ (* (sin lambda1) (sin lambda2)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* 1/24 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(hole binary64 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (+ (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (/ (* phi2 (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* -1/6 (* phi2 (sin phi1))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))) (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (cos (* 1/2 (PI))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx (* -1 phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))) (* -1/2 (* phi2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos lambda1) (* (cos phi1) (cos (* 1/2 (PI))))))))))))) (* (cos lambda1) (* (cos phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos phi1) (sin (* 1/2 (PI))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (cos (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos phi1) (sin (* 1/2 (PI)))))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos phi1) (cos (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos phi1) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos phi1) (cos (* 1/2 (PI)))))))))) (* (cos phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* -1/2 (* phi2 (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/6 (* (cos phi1) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))))))))) (* (cos phi1) (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* phi2 (+ (* -1/2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* -1/6 (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))) (* (cos phi1) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (cos (* 1/2 (PI))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* -1/6 (* (pow phi2 2) (cos (* 1/2 (PI)))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* 1/120 (* (pow phi2 2) (cos (* 1/2 (PI)))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/6 (cos (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos (* 1/2 (PI))))) (* 1/120 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* -1/2 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* 1/24 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI))))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI)))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos lambda1) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (sin phi1)))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (sin phi1))))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1/2 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/24 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/24 (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (* 1/2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* phi2 (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (sin phi1) (+ (* 1/2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* phi2 (+ (* -1/6 (sin phi1)) (* 1/2 (* (cos lambda1) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* phi2 (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* phi2 (* (cos lambda1) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* (cos lambda1) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* (cos lambda1) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (cos (- (* 1/2 (PI)) phi1))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1/2 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* -1/6 (* phi2 (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))) (* -1 (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* phi2 (- (+ (* -1 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1)))))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (cos phi1)))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (cos phi1) (* phi2 (sin phi1)))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1 (cos phi1)) (+ (* -1 (/ (pow (sin phi1) 2) (cos phi1))) (+ (* -1/2 (cos phi1)) (/ (pow (sin phi1) 2) (cos phi1)))))) (* -1 (sin phi1)))))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (cos phi1) (* phi2 (- (* phi2 (- (+ (* -1 (cos phi1)) (* phi2 (- (* -1 (/ (pow (sin phi1) 3) (pow (cos phi1) 2))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (cos phi1)) (+ (* -1 (/ (pow (sin phi1) 2) (cos phi1))) (* -1/2 (cos phi1))))) (cos phi1))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (cos phi1))) (+ (* -1/2 (cos phi1)) (/ (pow (sin phi1) 2) (cos phi1)))))) (* -1 (sin phi1)))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (cos phi1)))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (cos phi1) (* phi2 (sin phi1)))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1 (cos phi1)) (+ (* -1 (/ (pow (sin phi1) 2) (cos phi1))) (* -1/2 (cos phi1))))) (* -1 (sin phi1)))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (cos phi1) (* phi2 (- (* phi2 (- (+ (* -1 (cos phi1)) (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (cos phi1)) (+ (* -1 (/ (pow (sin phi1) 2) (cos phi1))) (* -1/2 (cos phi1))))) (cos phi1))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (cos phi1))) (* -1/2 (cos phi1))))) (* -1 (sin phi1)))))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (pow (cos phi1) 2)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (pow (cos phi1) 2))) (pow (cos phi1) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos phi1) 2)) (* 1/3 (* (pow phi2 2) (pow (cos phi1) 2))))) (pow (cos phi1) 2))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos phi1) 2)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (pow (cos phi1) 2))) (* 1/3 (pow (cos phi1) 2)))))) (pow (cos phi1) 2))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 1))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* -1 (pow phi2 2)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/3 (pow phi2 2)) 1)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/3 (* -2/45 (pow phi2 2)))) 1)))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (cos phi1)))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (cos phi1) (* -1 (* phi2 (sin phi1))))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (cos phi1) (* phi2 (- (* -1/2 (* phi2 (cos phi1))) (sin phi1))))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (cos phi1) (* phi2 (- (* phi2 (+ (* -1/2 (cos phi1)) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (cos phi1)))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* -1/2 (* (pow phi2 2) (cos phi1))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* 1/24 (* (pow phi2 2) (cos phi1))))))))
#s(approx (* (cos phi1) (cos phi2)) #s(hole binary64 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/2 (cos phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos phi1))) (* 1/24 (cos phi1)))))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow phi2 2) (pow (sin phi1) 2)) (cos phi1))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (/ (* phi2 (pow (sin phi1) 3)) (pow (cos phi1) 2)) (/ (pow (sin phi1) 2) (cos phi1))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (* -1/3 (/ (pow (sin phi1) 2) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 4) (pow (cos phi1) 3))) (* -1/2 (/ (pow (sin phi1) 2) (cos phi1)))))) (* -1 (/ (pow (sin phi1) 3) (pow (cos phi1) 2))))) (/ (pow (sin phi1) 2) (cos phi1))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1/3 (/ (pow (sin phi1) 2) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 4) (pow (cos phi1) 3))) (* -1/2 (/ (pow (sin phi1) 2) (cos phi1)))))) (cos phi1))) (+ (* -1/2 (/ (pow (sin phi1) 3) (pow (cos phi1) 2))) (* 1/6 (/ (pow (sin phi1) 3) (pow (cos phi1) 2))))))) (* -1/3 (/ (pow (sin phi1) 2) (cos phi1)))) (+ (* -1 (/ (pow (sin phi1) 4) (pow (cos phi1) 3))) (* -1/2 (/ (pow (sin phi1) 2) (cos phi1)))))) (* -1 (/ (pow (sin phi1) 3) (pow (cos phi1) 2))))) (/ (pow (sin phi1) 2) (cos phi1))))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (pow (sin phi1) 2))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (sin phi1) 2))) (pow (sin phi1) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (sin phi1) 2))) (* 2/45 (pow (sin phi1) 2)))))) (pow (sin phi1) 2)))))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (pow phi2 2)))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* -1/3 (pow phi2 2))))))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* (pow phi2 2) (- (* 2/45 (pow phi2 2)) 1/3))))))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (* (pow phi2 2) (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 2/45 (* -1/315 (pow phi2 2)))) 1/3))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* lambda2 (- (* 2 (* (cos phi1) (sin lambda1))) (* (cos phi1) (sin lambda1)))) (+ (* phi2 (- (+ (* lambda2 (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* phi2 (- (+ (* -1 (* (cos lambda1) (cos phi1))) (+ (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* phi2 (- (* lambda2 (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos lambda1) (cos phi1))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (sin phi1)) (* 1/6 (sin phi1)))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (* -1/2 (* (cos lambda1) (cos phi1))))))) (* -1 (sin phi1)))) (* (cos lambda1) (cos phi1))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (* lambda2 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (/ (* (cos lambda1) (cos phi1)) lambda2)) (* (cos phi1) (sin lambda1))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (* phi2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))) (* -1 (/ (sin phi1) lambda2))))) (* lambda2 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (/ (* (cos lambda1) (cos phi1)) lambda2)) (* (cos phi1) (sin lambda1)))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (/ (* (cos lambda1) (cos phi1)) lambda2)) (* (cos phi1) (sin lambda1)))) (* phi2 (+ (* lambda2 (* phi2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))))))) (* lambda2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))) (* -1 (/ (sin phi1) lambda2)))))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) #s(hole binary64 (+ (* lambda2 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (/ (* (cos lambda1) (cos phi1)) lambda2)) (* (cos phi1) (sin lambda1)))) (* phi2 (+ (* lambda2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))) (* -1 (/ (sin phi1) lambda2)))) (* phi2 (+ (* lambda2 (* phi2 (- (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1)))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (sin phi1) lambda2)) (* 1/6 (/ (sin phi1) lambda2))))))) (* lambda2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))))))))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (/ (* (cos lambda1) (cos phi1)) lambda2)) (* (cos phi1) (sin lambda1)))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2))) (* (cos phi1) (sin lambda1)))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))))))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2))) (* (cos phi1) (sin lambda1)))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) #s(hole binary64 (- (+ (* 2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (- (+ (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (- (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (+ (* phi2 (- (+ (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1)))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (sin phi1) lambda2)) (* 1/6 (/ (sin phi1) lambda2)))))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (+ (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2)) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))))))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2))) (* (cos phi1) (sin lambda1)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (/ (* (cos lambda1) (cos phi1)) lambda2))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (- (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (- (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (- (+ (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2)))))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) #s(hole binary64 (+ (* 2 (* (cos phi1) (sin lambda1))) (+ (* phi2 (- (+ (* 2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* phi2 (- (+ (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* 2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* phi2 (- (* -2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1)))))) (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (sin phi1) lambda2)) (* 1/6 (/ (sin phi1) lambda2)))))))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2)))))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (cos phi1) (sin lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin lambda1)) (/ (* phi2 (* (sin lambda1) (sin phi1))) (cos lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (* (cos phi1) (sin lambda1))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))) (* 1/6 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))))) (* -1 (* (cos phi1) (sin lambda1)))) (+ (* -1 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (* -1/2 (* (cos phi1) (sin lambda1)))))) (* -1 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))) (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* 1/3 (* (pow phi2 2) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) #s(hole binary64 (+ (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))) (* (pow phi2 2) (+ (* -1 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1))))) (* 1/3 (* (cos lambda1) (* (pow (cos phi1) 2) (sin lambda1)))))))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (* (pow (cos phi1) 2) (sin lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (sin lambda1))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (sin lambda1)))))) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (sin lambda1))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* 1/3 (* (pow (cos phi1) 2) (sin lambda1))))))) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* (pow phi2 2) (sin lambda1))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* (pow phi2 2) (+ (* -1 (sin lambda1)) (* 1/3 (* (pow phi2 2) (sin lambda1))))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* (pow phi2 2) (+ (* -1 (sin lambda1)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (sin lambda1))) (* 1/3 (sin lambda1)))))))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* -1 (* phi2 (sin phi1))) (* (cos lambda1) (cos phi1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (- (* -1/2 (* phi2 (* (cos lambda1) (cos phi1)))) (sin phi1))) (* (cos lambda1) (cos phi1)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (cos phi1))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* (cos lambda1) (cos phi1)))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) #s(hole binary64 (+ (* (cos lambda1) (cos phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (cos phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (cos phi1)))) (* 1/24 (* (cos lambda1) (cos phi1))))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (/ (* (cos lambda1) (cos phi1)) lambda2)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (/ (* phi2 (sin phi1)) lambda2) (/ (* (cos lambda1) (cos phi1)) lambda2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2))))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2)) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (sin phi1) lambda2)) (* 1/6 (/ (sin phi1) lambda2)))))) (* -1 (/ (* (cos lambda1) (cos phi1)) lambda2))) (+ (* -1 (/ (pow (sin phi1) 2) (* lambda2 (* (cos lambda1) (cos phi1))))) (* -1/2 (/ (* (cos lambda1) (cos phi1)) lambda2))))) (* -1 (/ (sin phi1) lambda2)))) (/ (* (cos lambda1) (cos phi1)) lambda2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* lambda2 (* (cos lambda1) (cos phi1)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi2 (sin phi1)))) (* lambda2 (* (cos lambda1) (cos phi1))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos lambda1) (cos phi1))) (* phi2 (+ (* -1 (* lambda2 (sin phi1))) (* -1/2 (* lambda2 (* phi2 (* (cos lambda1) (cos phi1))))))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos lambda1) (cos phi1))) (* phi2 (+ (* -1 (* lambda2 (sin phi1))) (* phi2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi1)))) (* 1/6 (* lambda2 (* phi2 (sin phi1)))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (* (cos phi1) (sin lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* 2 (/ (* phi2 (* (sin lambda1) (sin phi1))) (cos lambda1))) (* (cos phi1) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -2 (/ (* (sin phi1) (- (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* (cos lambda1) (cos phi1)))) (+ (* 2 (/ (* (sin lambda1) (* (sin phi1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 3) (pow (cos phi1) 2)))) (/ (* (sin lambda1) (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (cos phi1))))))) (+ (* -1/2 (* (cos phi1) (sin lambda1))) (/ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1))))) (+ (* -4 (/ (* (sin lambda1) (pow (sin phi1) 2)) (* (pow (cos lambda1) 2) (cos phi1)))) (/ (* (sin lambda1) (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (cos phi1)))))) (* -2 (/ (* (sin lambda1) (sin phi1)) (cos lambda1))))) (* (cos phi1) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))) (+ (* -1/720 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* 1/24 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 3) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (+ (* 1/24 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))) (+ (* -1/720 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))) (+ (* 1/24 (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))))))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi2 2) (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* (sin lambda1) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* (sin lambda1) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2)))) (* (pow phi2 2) (* (sin lambda1) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (sin lambda1))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (- (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (- (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (- (+ (* 1/3 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* (pow phi2 2) (- (* -2/45 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (* 2/45 (pow (sin phi1) 2))))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* -2 (* phi2 (* (cos lambda1) (* (cos phi1) (sin phi1))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi2 (+ (* -2 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* phi2 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (pow (sin phi1) 2))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) #s(hole binary64 (+ (* phi2 (+ (* -2 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* phi2 (+ (* -1 (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (+ (* phi2 (+ (* 1/3 (* (cos lambda1) (* (cos phi1) (sin phi1)))) (* (cos lambda1) (* (cos phi1) (sin phi1))))) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (/ (* (pow phi2 2) (pow (sin phi1) 2)) (* (cos lambda1) (cos phi1)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (/ (* phi2 (pow (sin phi1) 3)) (* (pow (cos lambda1) 2) (pow (cos phi1) 2))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (* -1/3 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1 (/ (pow (sin phi1) 4) (* (pow (cos lambda1) 3) (pow (cos phi1) 3)))) (* -1/2 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))))) (* -1 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) #s(hole binary64 (* (pow phi2 2) (+ (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1 (/ (* (sin phi1) (- (* -1/3 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))) (+ (* -1 (/ (pow (sin phi1) 4) (* (pow (cos lambda1) 3) (pow (cos phi1) 3)))) (* -1/2 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))))) (* (cos lambda1) (cos phi1)))) (+ (* -1/2 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))) (* 1/6 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))))) (* -1/3 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))) (+ (* -1 (/ (pow (sin phi1) 4) (* (pow (cos lambda1) 3) (pow (cos phi1) 3)))) (* -1/2 (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1))))))) (* -1 (/ (pow (sin phi1) 3) (* (pow (cos lambda1) 2) (pow (cos phi1) 2)))))) (/ (pow (sin phi1) 2) (* (cos lambda1) (cos phi1)))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi1 phi2)))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi2 (+ phi1 (* -1/6 (* phi1 (pow phi2 2)))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* 1/120 (* phi1 (pow phi2 2)))))))))
#s(approx (* phi1 (sin phi2)) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* (pow phi2 2) (+ (* -1/5040 (* phi1 (pow phi2 2))) (* 1/120 phi1)))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))) (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))) (* 1/2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) phi1))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/2 (sin (- (* 1/2 (PI)) phi1))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (cos (- (* 1/2 (PI)) phi1)))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (cos (- (* 1/2 (PI)) phi1))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1/2 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* phi2 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* -1/6 (* phi2 (cos (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2)))))) (* 1/24 (* (cos phi1) (cos (/ (- (pow lambda1 2) (pow lambda2 2)) (+ lambda1 lambda2))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* -1/720 (/ (* (pow phi2 2) (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))) (* 1/24 (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))))))))) (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* -1/2 (pow phi2 2)) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (pow phi2 2) #s(hole binary64 (pow phi2 2)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1)))))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi1))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* -1/2 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* 1/24 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) phi1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (* 1/2 (PI)) phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (* 1/2 (PI)) phi1)))) (* 1/24 (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI))))))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* 1/2 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (sin (+ phi1 (* 1/2 (PI))))) (* 1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 1))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (pow phi2 6) #s(hole binary64 (pow phi2 6)))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ 1 (pow phi2 6))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ (+ 1 (* -1/2 (pow phi2 2))) (pow phi2 6))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (pow phi2 6))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (/ (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (pow phi2 6))))
#s(approx (/ 1 (pow phi2 6)) #s(hole binary64 (/ 1 (pow phi2 6))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (- (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (+ (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (- (* -2/45 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (sin phi1) 2))))) (* -1/3 (pow (sin phi1) 2))))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (* phi2 (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (- (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))) (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (sin phi1))))) (sin phi1))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* 1/3 (* (pow phi2 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (cos (- lambda1 lambda2)) 2)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (pow (cos (- lambda1 lambda2)) 2)))))) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (- (+ (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* phi2 (- (/ (pow (sin phi1) 3) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* -1 (/ (* (sin phi1) (- (* -3/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* (cos phi1) (cos (- lambda1 lambda2))))) (+ (* -1 (/ (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))) (cos (- lambda1 lambda2)))) (/ (* (sin phi1) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))))) (+ (* -1 (* (cos phi1) (cos (- lambda1 lambda2)))) (+ (* -1 (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (/ (pow (sin phi1) 2) (* (cos phi1) (cos (- lambda1 lambda2)))))))) (* -1 (sin phi1)))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi2 (pow (sin phi1) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* phi2 (+ (* 7/8 (* phi2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (pow (sin phi1) 3))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 7/8 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi2 2) (+ (* -61/240 (* (pow phi2 2) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 7/8 (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi1) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(hole binary64 (+ (* (cos phi1) (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (cos (- lambda1 lambda2))))) (* 1/24 (* (cos phi1) (cos (- lambda1 lambda2)))))))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (pow (sin phi1) 3))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* -1/2 (* (pow phi2 2) (pow (sin phi1) 3))) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (sin phi1) 3)) (* 13/120 (* (pow phi2 2) (pow (sin phi1) 3))))) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (sin phi1) 3)) (* (pow phi2 2) (+ (* -41/3024 (* (pow phi2 2) (pow (sin phi1) 3))) (* 13/120 (pow (sin phi1) 3)))))) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) #s(hole binary64 (+ (* phi2 (- (* phi2 (+ (* -1 (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 1/3 (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* -1 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (pow (sin phi1) 2)) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (+ (* -1 (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(hole binary64 (* phi2 (- (* phi2 (+ (* phi2 (- (* -1/3 (* phi2 (pow (sin phi1) 2))) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (pow (sin phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (pow (sin phi1) 2))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (sin phi1) 2))) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (sin phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (sin phi1) 2))) (* 2/45 (pow (sin phi1) 2)))))) (pow (sin phi1) 2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/240 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/720 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/5040 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (* (* phi2 phi2) 1/120) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6)))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6)))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow phi2 2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 1/24))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (+ 1/24 (* -1/720 (pow phi2 2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (* (cos phi1) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* -1/2 (* phi2 (* (cos phi1) (cos (- lambda1 lambda2))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(hole binary64 (+ (* phi2 (+ (sin phi1) (* phi2 (+ (* -1/2 (* (cos phi1) (cos (- lambda1 lambda2)))) (* -1/6 (* phi2 (sin phi1))))))) (* (cos phi1) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/24 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (pow phi2 2) (+ (* -1/2 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/24 (* (cos phi1) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(hole binary64 (sin phi1)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* phi2 (+ phi1 (/ (cos (- lambda1 lambda2)) phi2)))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* phi2 (+ phi1 (+ (/ (cos lambda1) phi2) (/ (* lambda2 (sin lambda1)) phi2))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* phi2 (+ phi1 (/ (* lambda2 (sin lambda1)) phi2)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* phi2 (sin phi1))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* phi2 (+ (sin phi1) (/ (* (cos lambda2) (cos phi1)) phi2)))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (* phi2 (+ phi1 (/ (cos lambda2) phi2)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 phi2))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) #s(hole binary64 (* (cos (* 1/2 (PI))) (sin phi2))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 phi2))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (pow (cos phi2) 2)))
#s(approx (pow (sin phi2) 2) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 -1/720))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (- (* 1/24 (/ 1 (pow phi2 2))) 1/720)))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4))))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(hole binary64 (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1/6 (pow phi2 3))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* (pow phi2 3) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* 1/120 (pow phi2 5))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 5) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 5) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* 1/120 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) #s(hole binary64 (* (pow phi2 2) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1/5040 (pow phi2 7))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* (pow phi2 7) (- (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* -1/5040 (pow phi2 6))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* -1/5040 (pow phi2 4))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) (+ 1/5040 (/ 1/6 (pow phi2 4)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* -1/5040 (pow phi2 4))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (* -1/5040 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(hole binary64 (* (pow phi2 2) (- (* 1/120 (/ 1 (pow phi2 2))) 1/5040))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (* -1/720 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(hole binary64 (* (pow phi2 2) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 phi1) (* -1 (/ (cos (- lambda1 lambda2)) phi2)))))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 phi1) (* -1 (/ (+ (cos lambda1) (* lambda2 (sin lambda1))) phi2)))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 phi1) (* -1 (/ (* lambda2 (sin lambda1)) phi2)))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin phi1)) (* -1 (/ (* (cos lambda2) (cos phi1)) phi2)))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) #s(hole binary64 (* -1 (* phi2 (+ (* -1 phi1) (* -1 (/ (cos lambda2) phi2)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos phi1) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (cos (neg lambda2)) (sin (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) #s(hole binary64 (* R (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (acos (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))) (* (sin phi1) (sin phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(hole binary64 (* (cos lambda1) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (sin (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 3) (- 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) 1/120)))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) (+ 1/120 (/ 1 (pow phi2 4))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- 1/5040 (* 1/120 (/ 1 (pow phi2 2))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- (+ 1/5040 (/ 1/6 (pow phi2 4))) (* 1/120 (/ 1 (pow phi2 2))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 7) (- (+ 1/5040 (/ 1/6 (pow phi2 4))) (+ (* 1/120 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))))))))

Outputs
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
#s(literal 1/2 binary64)
(PI.f64)
(asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(cos.f64 phi1)
phi1
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(cos.f64 phi2)
phi2
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(cos.f64 lambda1)
lambda1
(cos.f64 lambda2)
lambda2
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(sin.f64 lambda1)
(sin.f64 lambda2)
(*.f64 (sin.f64 phi1) (sin.f64 phi2))
(sin.f64 phi1)
(sin.f64 phi2)
R
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
(asin.f64 #s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
#s(approx (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(neg.f64 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))
(.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))
(/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2)))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))
(*.f64 phi1 phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))
(+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2)))
(fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))
(+.f64 (.f64 lambda2 (sin.f64 lambda1)) (.f64 phi1 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #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 phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))
(cos.f64 #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 (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(literal -1 binary64)
(.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))
#s(literal 1 binary64)
(*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))
(/.f64 lambda1 lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))
(.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))
(/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
(.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))
(/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2)))
(+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))
(+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)))
(*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))
#s(approx (cos lambda2) #s(literal 1 binary64))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))
(.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
(*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))
(+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))
(/.f64 (cos.f64 lambda1) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))
(.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 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 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
(*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(literal -1/2 binary64)
(pow.f64 lambda1 #s(literal 2 binary64))
#s(literal 2 binary64)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- ( -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1)))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- ( -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))
(.f64 lambda1 #s(approx (- ( -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))
(*.f64 #s(literal -1/2 binary64) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))
(.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) lambda1)
(sin.f64 (neg.f64 lambda2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))
(.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2))
(cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))))))
#s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))
(.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
(*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
(-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) lambda2)
(/.f64 #s(literal 1 binary64) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx ( (cos phi2) (cos phi1)) (cos.f64 phi2))) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (cos lambda1) #s(literal 1 binary64))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2))
(*.f64 (sin.f64 phi2) (sin.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(+.f64 (.f64 #s(approx ( (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))
(fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))
(+.f64 (.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1)) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))
(*.f64 phi2 (sin.f64 phi1))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
(-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)
(+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))
(*.f64 #s(literal -1 binary64) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))
(sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))
(-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1)
#s(approx (+ lambda2 (* 1/2 (PI))) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1)))
(sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))
(-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1)
#s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))))
(.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))
(*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))
(/.f64 (PI.f64) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
(*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))
(-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1))
(+.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)) (/.f64 lambda2 lambda1))
(/.f64 (PI.f64) lambda1)
(/.f64 lambda2 lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
(-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)
(+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))
(sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))))
(sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
(*.f64 #s(literal -1 binary64) lambda2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))
(.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))
(sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))
(-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2)
#s(approx (+ lambda1 (* 1/2 (PI))) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))))
(.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))
(+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))
(/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.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 (cos.f64 lambda1) (cos.f64 lambda2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))
(*.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2))
#s(approx (sin lambda1) lambda1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 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 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(sin.f64 (-.f64 lambda1 lambda2))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
(fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
(+.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))
(*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))
(pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))
(pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))
(-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(+.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))
(*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))
(pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 lambda1) #s(approx ( (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))))
(sin.f64 #s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))
(*.f64 #s(literal -1 binary64) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (* 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) #s(approx ( (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))))
(sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))
#s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))
(*.f64 #s(literal -1 binary64) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 lambda1) #s(approx ( (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.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 lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)))
(sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))
#s(approx (+ phi1 (* 1/2 (PI))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))))
(sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))
#s(approx (+ phi1 (* 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
(.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))
(*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))
(/.f64 (PI.f64) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 lambda1) #s(approx ( (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
(sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))
(sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))
#s(approx (+ phi2 (* 1/2 (PI))) phi2)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 #s(literal 1/2 binary64) #s(approx ( (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
(+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
(sin.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
(-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
(+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
(sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi1))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi1)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1)))))
(+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1))))
(sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1))
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) R)
(acos.f64 #s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
(pow.f64 (cos.f64 phi1) #s(literal 2 binary64))
(pow.f64 (cos.f64 phi2) #s(literal 2 binary64))
(-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(*.f64 (cos.f64 phi1) (cos.f64 phi2))
(/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
(*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(pow.f64 (sin.f64 phi2) #s(literal 2 binary64))
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(acos.f64 #s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
(.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))
(-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
(fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
(.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))
(-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))
(/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
(.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))
(.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
(.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
(-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
(pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))
(/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi1 (sin.f64 phi2)))
(*.f64 phi1 (sin.f64 phi2))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)))
(sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 phi2 (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(*.f64 phi2 phi2)
(cos.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
#s(literal 1/24 binary64)
(.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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))
(-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))
(*.f64 lambda1 lambda1)
(*.f64 lambda2 lambda2)
#s(approx (+ lambda1 lambda2) lambda2)
(.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 (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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
(acos.f64 (+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
(+.f64 #s(approx (* (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.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)))
(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))
(fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.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 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1)) #s(literal 1 binary64))
(-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1))
#s(literal 1/120 binary64)
(*.f64 phi1 phi1)
#s(literal 1/6 binary64)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2))
#s(approx (sin phi2) phi2)
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(pow.f64 phi2 #s(literal 2 binary64))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
#s(approx (* (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64)))
#s(approx (cos phi2) #s(literal 1 binary64))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1))
(cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
(.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
(+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))
(*.f64 lambda1 lambda2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
(.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ ( (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))))))
#s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))))
(.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))
(pow.f64 phi2 #s(literal 6 binary64))
#s(literal 6 binary64)
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2))))
(*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2))))
(*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))
(.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
(fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(+.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1)) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
(/.f64 #s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1)
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))
(/.f64 (cos.f64 lambda2) lambda1)
(*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1)))))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1)))))))
(cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1)))))
#s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))
(*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1)))
#s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(/.f64 #s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))
(+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64)))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64))
(.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
(.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))
(pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))
(.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)))
(-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))
(-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
(pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
(-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))
(.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1))
(*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2))
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #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 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64)) #s(literal 1 binary64))
#s(literal -1/6 binary64)
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2)
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2)) #s(literal 1/6 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64)) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))
(.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1)))
(.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2)) #s(literal 1/2 binary64))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (*.f64 phi2 phi2))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64)) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1))))
(fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))
(.f64 #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
(-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
(acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
(fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))
(+.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))
(asin.f64 #s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))) R)
(-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))))
(asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
(fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
(.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))
(fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))
(+.f64 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))
(.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx R R)
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.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)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.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)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) R) (.f64 R (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (.f64 R (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2)))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 lambda1 (fma.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)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.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 phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (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 lambda1 lambda1)
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (sin lambda2)) (.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 lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 (sin 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 (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (asin.f64 (fma.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 phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 lambda1 (fma.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))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 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))) (fma.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))) (fma.f64 lambda1 (fma.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))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 (- 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 (fma.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 (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.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))) (fma.f64 lambda1 (fma.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))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.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)))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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)))))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (fma.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)))) (fma.f64 lambda1 (fma.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))))))) (fma.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)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda1 (fma.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)))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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)))))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 lambda1 (fma.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 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) phi2) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) phi2) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))) phi2))) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) phi2) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2)))) phi2))))) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 (neg.f64 lambda2)) phi2))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))) phi2) (/.f64 (cos.f64 (neg.f64 lambda2)) phi2)))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) phi2) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (cos.f64 (neg.f64 lambda2))) phi2))) (/.f64 (cos.f64 (neg.f64 lambda2)) phi2)))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) phi2) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) phi2) (.f64 #s(literal 1/6 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))) phi2))))) (/.f64 (cos.f64 (neg.f64 lambda2)) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda1 (fma.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)))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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)))))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.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)) (fma.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)) (fma.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)) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.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 (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (+.f64 #s(literal 1 binary64) (*.f64 phi1 phi2)))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (+.f64 #s(literal 1 binary64) (fma.f64 lambda1 lambda2 (*.f64 phi1 phi2))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (+.f64 #s(literal 1 binary64) (fma.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)) (.f64 phi1 phi2))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (+.f64 #s(literal 1 binary64) (fma.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))) (.f64 phi1 phi2))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (*.f64 phi1 phi2))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (fma.f64 lambda1 lambda2 (*.f64 phi1 phi2)))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (fma.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))) (*.f64 phi1 phi2)))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (fma.f64 lambda1 (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) lambda2 (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))) (.f64 phi1 phi2)))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) lambda2)
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (* -1 (/ lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))
#s(approx (/ lambda1 lambda2) (/.f64 lambda1 lambda2))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 lambda1 (fma.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 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) phi1) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) phi1) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) phi1))) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) phi1) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) phi1))))) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 (neg.f64 lambda2)) phi1))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))) phi1) (/.f64 (cos.f64 (neg.f64 lambda2)) phi1)))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) phi1) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (cos.f64 (neg.f64 lambda2))) phi1))) (/.f64 (cos.f64 (neg.f64 lambda2)) phi1)))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) phi1) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) phi1) (.f64 #s(literal 1/6 binary64) (/.f64 (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))) phi1))))) (/.f64 (cos.f64 (neg.f64 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) phi1) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) phi1) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) phi1))) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) phi1) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) phi1))))) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda1 (fma.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 (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))
#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 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) #s(literal 1 binary64))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+.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 lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2))))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (/ (cos lambda1) lambda2) (/.f64 #s(literal 1 binary64) lambda2))
#s(approx (/ (cos lambda1) lambda2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (/ (cos lambda1) lambda2) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (/ (cos lambda1) lambda2) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) lambda2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.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 (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.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 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (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 #s(literal -1 binary64) (.f64 lambda1 (sin.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 (fma.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 (+ 1 (* -1/2 (pow lambda1 2))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1/2 (pow lambda1 2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (* -1/2 (pow lambda1 2)) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (pow lambda1 2) (pow.f64 lambda1 #s(literal 2 binary64)))
#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 (fma.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 (- (* -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 (* -1/2 lambda1) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (cos (neg lambda2))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) 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 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(literal -1 binary64))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal -1 binary64) lambda1))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda1))
#s(approx (/ 1 lambda1) (/.f64 #s(literal 1 binary64) lambda1))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* -1 lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (/.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (/ (PI) lambda1) (/.f64 (PI.f64) lambda1))
#s(approx (/ lambda2 lambda1) (/.f64 lambda2 lambda1))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ lambda1 (* 1/2 (PI))) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (fma.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)))) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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 phi1 (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (sin.f64 phi2) (+.f64 (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) phi1) (/.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))) phi1) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) phi1)) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) phi1))) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) phi1)) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (/.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (+.f64 (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) phi1) (/.f64 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1)))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))) phi1) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) phi1)) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1)))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) phi1))) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) phi1)) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) phi1)))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.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 lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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 (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda1 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (sin.f64 lambda2)) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 lambda1 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2))))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (*.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1)))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1))) (*.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1)) (.f64 lambda1 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1)) (.f64 lambda1 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (cos.f64 phi1))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 lambda1 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda1 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (cos lambda1) 3) #s(literal 1 binary64))
#s(approx (pow (cos lambda1) 3) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -3/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (pow (cos lambda1) 3) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 7/8 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 3/2 binary64)))))
#s(approx (pow (cos lambda1) 3) (+.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 7/8 binary64) (*.f64 #s(literal -61/240 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 3/2 binary64)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (sin lambda1) 3) (pow.f64 lambda1 #s(literal 3 binary64)))
#s(approx (pow (sin lambda1) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (pow (sin lambda1) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 13/120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))
#s(approx (pow (sin lambda1) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.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 13/120 binary64) (.f64 #s(literal -41/3024 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (pow (cos lambda1) 2) #s(literal 1 binary64))
#s(approx (pow (cos lambda1) 2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (pow (cos lambda1) 2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (pow (cos lambda1) 2) (+.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/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (pow (sin lambda1) 2) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (pow (sin lambda1) 2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (pow (sin lambda1) 2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin lambda1) 2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.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 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal 1/12 binary64) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.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 lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.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 lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.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 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.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 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.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))))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.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))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 (cos.f64 (neg.f64 lambda2)) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.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 (cos.f64 (neg.f64 lambda2)) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.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 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.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 (cos.f64 (neg.f64 lambda2)) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 #s(literal 1/48 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/1440 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal 1/48 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal 1/24 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))))
#s(approx (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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)))) (.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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)))) (.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (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)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (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))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (fma.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (fma.f64 lambda1 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (fma.f64 lambda1 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda1 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda1 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (fma.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (fma.f64 lambda1 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 2 binary64) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/144 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/240 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/5040 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/12 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal 1/12 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/240 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (*.f64 lambda1 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 1/120 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/120 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (-.f64 (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 1/3 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 lambda2 (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 lambda2 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (.f64 #s(literal 1/24 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (/.f64 (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 4 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (.f64 lambda1 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/18 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/5040 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 4 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 4 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 lambda1 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 lambda1 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))))))))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 lambda1 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/18 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/5040 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 lambda1 (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 lambda1 (fma.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 lambda1 (fma.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 lambda1 (fma.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/18 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/5040 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))))))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 lambda1 (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 lambda1 (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 lambda1 (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/6 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/18 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/5040 binary64) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (-.f64 (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/360 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/48 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 3 binary64))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.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))) (fma.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))) (fma.f64 lambda1 (fma.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))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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 (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 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 (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (* lambda1 lambda1) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (+ lambda1 lambda2) lambda2)
#s(approx (+ lambda1 lambda2) (+.f64 lambda1 lambda2))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda1 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (cos.f64 lambda2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (cos.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (cos.f64 lambda2))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (cos.f64 lambda2) (.f64 lambda1 (-.f64 (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda2) (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)))))) (cos.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))) (cos.f64 lambda2)) (/.f64 (.f64 (sin.f64 lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)) (/.f64 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (cos.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 lambda1 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda1 (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (*.f64 #s(literal 7/8 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 lambda1 (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 lambda2))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal 1/12 binary64) (*.f64 (cos.f64 lambda2) (sin.f64 lambda2))))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda1 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 lambda2) (sin.f64 lambda2)))))))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda1))
#s(approx (* -1 (/ lambda2 lambda1)) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(literal 1 binary64))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos 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 (+ 1 (* lambda1 lambda2)) #s(literal 1 binary64))
#s(approx (+ 1 (* lambda1 lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (* lambda1 lambda2) (*.f64 lambda1 lambda2))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (cos.f64 lambda2))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (cos.f64 lambda2))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/.f64 (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (/.f64 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 lambda2)))) lambda1))
#s(approx (* -1 (/ (cos lambda2) lambda1)) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
#s(approx (/ (cos lambda2) lambda1) (/.f64 (cos.f64 lambda2) lambda1))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) lambda2)
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) (+.f64 lambda1 lambda2))
#s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))
#s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 (+.f64 lambda1 lambda2) lambda1))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (fma.f64 lambda1 (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.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))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda1 (fma.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))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 lambda1 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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 (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.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 (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda1 (fma.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))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.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))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.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))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 (neg.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 (neg.f64 lambda2))))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 lambda1 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #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 phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (cos lambda1) (cos.f64 lambda1))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (sin lambda1) (sin.f64 lambda1))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (- lambda1 lambda2) lambda1)
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (fma.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)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (+.f64 (cos.f64 lambda1) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2)))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) lambda1)
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))
#s(approx (/ (cos lambda1) lambda2) (/.f64 (cos.f64 lambda1) lambda2))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos (neg lambda2)) (* 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 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 (fma.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 (+ 1 (* -1/2 (pow lambda1 2))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ 1 (* -1/2 (pow lambda1 2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#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)) (fma.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 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (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 lambda1 (fma.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 (* lambda2 (- (/ lambda1 lambda2) 1)) lambda1)
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (/.f64 lambda1 lambda2))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) #s(literal -1 binary64))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1)
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (+ lambda1 (* 1/2 (PI))) lambda1)
#s(approx (+ lambda1 (* 1/2 (PI))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (cos lambda1) (cos lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (cos lambda1) 3) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (sin lambda1) 3) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))))
#s(approx (pow (cos lambda1) 2) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
#s(approx (pow (sin lambda1) 2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.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 (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.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 (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (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) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.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 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) lambda1)
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ lambda1 lambda2) lambda1)
#s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (-.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) lambda1)
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))
#s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (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)) phi1)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (+.f64 (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (+.f64 (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (+.f64 (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 (sin.f64 lambda2) lambda1))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) lambda1)))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) lambda1)
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (+ 1 (/ lambda2 lambda1)) #s(literal 1 binary64))
#s(approx (+ 1 (/ lambda2 lambda1)) (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1)))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin lambda1))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))
#s(approx (* (cos (* 1/2 (PI))) (sin lambda1)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (asin.f64 (fma.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 phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 (- lambda1 lambda2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#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 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.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 (fma.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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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 (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) phi2)))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) phi2))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (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 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) phi1)))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) phi1))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) phi1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (.f64 (cos.f64 phi1) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.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 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#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 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.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 (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda1)))))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1)) #s(literal 1 binary64)))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal -1/2 binary64) (PI.f64))) lambda1)))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda1)) #s(literal 1 binary64)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.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)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.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 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.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)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.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 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (+ lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (+ 1 (* lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (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 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)) lambda1)))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.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 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (.f64 R (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (.f64 R (acos.f64 (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (acos.f64 (fma.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 (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.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 (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (.f64 R (acos.f64 (fma.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 (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (acos.f64 (fma.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 (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.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 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.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 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (acos.f64 (fma.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 (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (asin.f64 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (cos lambda2) #s(literal 1 binary64))
#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 lambda2 lambda2)
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) (.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 lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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 lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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) 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 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.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))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.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))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (- 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 (fma.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 (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.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))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (cos (neg lambda2)) #s(literal 1 binary64))
#s(approx (cos (neg lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos (neg 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 (neg 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 (neg lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.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)))) (fma.f64 lambda2 (fma.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)))) (fma.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)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2)))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 phi2 (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (+.f64 (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))) phi2) (/.f64 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) phi2)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1))) phi2))) (/.f64 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) phi2)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) phi2))))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) (+.f64 (/.f64 (cos.f64 lambda1) phi2) (/.f64 (*.f64 lambda2 (sin.f64 lambda1)) phi2)))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 lambda1)) phi2) (/.f64 (sin.f64 lambda1) phi2)) (/.f64 (cos.f64 lambda1) phi2)))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 lambda1) phi2) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda2 (sin.f64 lambda1)) phi2))) (/.f64 (sin.f64 lambda1) phi2)) (/.f64 (cos.f64 lambda1) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#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) (fma.f64 lambda2 (sin.f64 lambda1) (*.f64 phi1 phi2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.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 (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (+.f64 (cos.f64 lambda1) (*.f64 phi1 phi2)))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (/.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)) lambda2))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 phi1 (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (+.f64 (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) phi1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) phi1))) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) phi1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) (+.f64 (/.f64 (cos.f64 lambda1) phi1) (/.f64 (*.f64 lambda2 (sin.f64 lambda1)) phi1)))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda2 (cos.f64 lambda1)) phi1) (/.f64 (sin.f64 lambda1) phi1)) (/.f64 (cos.f64 lambda1) phi1)))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 lambda1) phi1) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda2 (sin.f64 lambda1)) phi1))) (/.f64 (sin.f64 lambda1) phi1)) (/.f64 (cos.f64 lambda1) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (+.f64 (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) phi1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) phi1))) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) phi1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 phi1) (cos.f64 phi2) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 phi2))))))))))
#s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))
#s(approx (* (cos lambda2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos lambda2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi1)))))))
#s(approx (* (cos lambda2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi1)) (.f64 phi2 (sin.f64 phi1)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 phi1) (fma.f64 phi2 (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi1))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 phi1) (fma.f64 phi2 (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (cos.f64 phi1)))))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) (+.f64 #s(literal 1 binary64) (*.f64 phi1 phi2)))
#s(approx (+ (cos lambda2) (* phi1 phi2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 phi1 phi2))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) (+.f64 #s(literal 1 binary64) (fma.f64 phi1 phi2 (.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) (* phi1 phi2)) (+.f64 #s(literal 1 binary64) (fma.f64 phi1 phi2 (.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 phi2)) (cos.f64 phi2))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 (fma.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 (- lambda1 lambda2)) (cos phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 lambda1) (* lambda2 (sin lambda1))) (cos.f64 lambda1))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (cos.f64 lambda1))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))) lambda2))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.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 (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 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) (fma.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) (fma.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) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.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 (* 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)))) (fma.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)))) (fma.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)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))
#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))) (fma.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))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) lambda2 (*.f64 #s(literal 1/4 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)))) (fma.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)))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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)))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) lambda1 (.f64 #s(literal 1/1440 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (* lambda1 (cos (neg lambda2))) lambda1)
#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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (sin (neg lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#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 (- (/ lambda1 lambda2) 1) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda2))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda2))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))
#s(approx (/ 1 lambda2) (/.f64 #s(literal 1 binary64) lambda2))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ lambda2 (* 1/2 (PI))) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ 1 (* 1/2 (/ (PI) lambda2))) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))
#s(approx (+ 1 (* 1/2 (/ (PI) lambda2))) (/.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (* 1/2 (/ (PI) lambda2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))
#s(approx (/ (PI) lambda2) (/.f64 (PI.f64) lambda2))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)) #s(literal 1 binary64))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)) #s(literal 1 binary64)))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)) #s(literal 1 binary64)))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.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 (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.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 (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.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 (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* -1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (fma.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)))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 phi1 (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (sin.f64 phi2) (+.f64 (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) phi1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (sin.f64 phi2) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) phi1))) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) phi1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (+.f64 (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) phi1) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) phi1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1) (.f64 #s(literal -1/6 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) phi1))) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) phi1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) phi1)))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 lambda1) (cos lambda2)) (cos.f64 lambda1))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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 lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.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 phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.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) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.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 (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 lambda1) (sin.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 (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (sin.f64 lambda1) (sin.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 phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda2 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 lambda2 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1))))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1)))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1)) (.f64 lambda2 (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1))) (.f64 (cos.f64 phi1) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (cos.f64 phi1))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (*.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 lambda2 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda2 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (cos lambda2) 3) #s(literal 1 binary64))
#s(approx (pow (cos lambda2) 3) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -3/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (pow (cos lambda2) 3) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 7/8 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 3/2 binary64)))))
#s(approx (pow (cos lambda2) 3) (+.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 7/8 binary64) (*.f64 #s(literal -61/240 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 3/2 binary64)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (*.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (pow (sin lambda2) 3) (pow.f64 lambda2 #s(literal 3 binary64)))
#s(approx (pow (sin lambda2) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (pow (sin lambda2) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 13/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))
#s(approx (pow (sin lambda2) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (+.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 13/120 binary64) (.f64 #s(literal -41/3024 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (pow (cos lambda2) 2) #s(literal 1 binary64))
#s(approx (pow (cos lambda2) 2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (pow (cos lambda2) 2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (pow (cos lambda2) 2) (+.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/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (pow (sin lambda1) 2) (pow (sin lambda2) 2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (pow (sin lambda2) 2) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (pow (sin lambda2) 2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (pow (sin lambda2) 2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin lambda2) 2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.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 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))))))))))
#s(approx (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/144 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/240 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/720 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/5040 binary64) (sin.f64 lambda1))))))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1/6 binary64) (sin.f64 lambda1)))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))))))))))
#s(approx (* (cos lambda2) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/12 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/240 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/720 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1/5040 binary64) (sin.f64 lambda1))))))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (fma.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.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 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.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 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.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)))))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.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 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.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 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.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))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 (cos.f64 lambda1) (+.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)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (+.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 (cos.f64 lambda1) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.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 (sin.f64 lambda1) (+.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 (cos.f64 lambda1) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (+.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 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.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 (sin.f64 lambda1) (+.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 (cos.f64 lambda1) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (/.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) lambda2))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) lambda2))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.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))) (fma.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))) (fma.f64 lambda2 (fma.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))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda2 (fma.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)))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 lambda2 (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 lambda1))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ 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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.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 (- (* lambda1 lambda1) (* lambda2 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda2 lambda2) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 lambda2 (-.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (cos.f64 lambda1)) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (cos.f64 lambda1))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda1)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (cos.f64 lambda1) (.f64 lambda2 (-.f64 (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -3/2 binary64) (cos.f64 lambda1)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)))))) (cos.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)) (/.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (cos.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (*.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 lambda2 (fma.f64 #s(literal 7/8 binary64) (.f64 lambda2 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (cos lambda1) (cos lambda2)) 3) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))) (*.f64 #s(literal 7/8 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (*.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin lambda1) (sin lambda2)) 3) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 lambda2 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))))))))))
#s(approx (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 lambda2 (fma.f64 (cos.f64 lambda1) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (sin.f64 lambda1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal 1/120 binary64) (sin.f64 lambda1) (fma.f64 #s(literal 1/24 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/12 binary64) (sin.f64 lambda1)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/144 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/240 binary64) (sin.f64 lambda1) (fma.f64 #s(literal -1/720 binary64) (sin.f64 lambda1) (.f64 #s(literal -1/5040 binary64) (sin.f64 lambda1))))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (cos.f64 lambda1))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))))))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 lambda1 lambda2))))
#s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.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 lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.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 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (fma.f64 lambda1 lambda2 (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (fma.f64 lambda2 (+.f64 lambda1 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2)))) (fma.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 lambda2 lambda1)) #s(literal 1/2 binary64)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (-.f64 (fma.f64 lambda2 (fma.f64 lambda2 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1)) (* -1/2 (cos lambda2))) (-.f64 (fma.f64 lambda2 (fma.f64 lambda2 (-.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/6 binary64) (/.f64 lambda2 lambda1))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (/.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) lambda1) (-.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (/.f64 lambda2 lambda1) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (/.f64 #s(literal -1 binary64) lambda1))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (-.f64 (*.f64 #s(literal -1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) (/.f64 #s(literal -1 binary64) lambda1))
#s(approx (* -1 (/ (cos lambda2) lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (* -1 (/ (cos lambda2) lambda1)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/720 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)) (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (cos lambda2) lambda1) (/.f64 #s(literal 1 binary64) lambda1))
#s(approx (/ (cos lambda2) lambda1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (cos lambda2) lambda1) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (cos lambda2) lambda1) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (* -1/2 (cos lambda2)) #s(literal -1/2 binary64))
#s(approx (* -1/2 (cos lambda2)) (-.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* -1/2 (cos lambda2)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
#s(approx (* -1/2 (cos lambda2)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/1440 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/48 binary64))))) #s(literal 1/2 binary64)))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda2 (fma.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)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.f64 (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (+.f64 (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))) (/.f64 (.f64 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (pow.f64 (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) #s(literal 2 binary64)))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 lambda2 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.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)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.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) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))
#s(approx (cos lambda2) (cos.f64 lambda2))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (cos (neg lambda2)) (cos.f64 (neg.f64 lambda2)))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (+.f64 (/.f64 (cos.f64 lambda1) lambda2) (/.f64 (.f64 phi1 phi2) lambda2)))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (.f64 phi1 phi2) lambda2))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda2) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))
#s(approx (* (cos lambda2) (cos phi2)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (sin.f64 lambda1))
#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/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 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))
#s(approx (sin (neg lambda2)) (sin.f64 (neg.f64 lambda2)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2)
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 lambda2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))) (/.f64 lambda1 lambda2))))
#s(approx (+ lambda2 (* 1/2 (PI))) lambda2)
#s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) lambda2)
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))))
#s(approx (+ 1 (* 1/2 (/ (PI) lambda2))) #s(literal 1 binary64))
#s(approx (+ 1 (* 1/2 (/ (PI) lambda2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) lambda2)
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)) #s(literal 1 binary64))) lambda2))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 lambda1 lambda2)) #s(literal 1 binary64))))
#s(approx (pow (cos lambda2) 3) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)))
#s(approx (pow (sin lambda2) 3) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))
#s(approx (pow (cos lambda2) 2) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)))
#s(approx (pow (sin lambda2) 2) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (- (* lambda1 lambda1) (* lambda2 lambda2)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (+ lambda1 lambda2) (*.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (*.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda2 (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 lambda2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))) (/.f64 lambda1 lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 lambda1 lambda2)) #s(literal 1 binary64))))
#s(approx (* -1/2 (cos lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2)))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) (*.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (+ 1 (/ lambda2 lambda1)) (*.f64 lambda2 (+.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (* (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (- (/ (PI) 2) (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (- (* 1/2 (PI)) (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.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 (asin (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (asin.f64 (fma.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 phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) 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 phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (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 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.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 (fma.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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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 (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) phi2))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) phi2)))
#s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) phi2))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (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 (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 lambda1) (.f64 phi1 phi2)) lambda2))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (.f64 phi1 phi2) lambda2))))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) phi1)))
#s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) phi1))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) phi1))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (.f64 (cos.f64 phi1) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.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 (* 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 (- (* -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 (* -1/2 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (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 (sin (neg lambda2)) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64)))))
#s(approx (+ lambda2 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda2)) #s(literal 1 binary64)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda2)) #s(literal 1 binary64)))))
#s(approx (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)) #s(literal 1 binary64))) lambda2)) #s(literal 1 binary64)))))
#s(approx (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)) #s(literal 1 binary64)) lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.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 (+ (- lambda1 lambda2) (/ (PI) 2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.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 (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.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 (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.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))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.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)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (acos (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) R) (.f64 R (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (acos.f64 (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (-.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 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) lambda2))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.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 (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (-.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (+ 1 (* lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (* lambda1 (+ 1 (/ lambda2 lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (-.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 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))))
#s(approx (* (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) R) (.f64 R (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))))))
#s(approx (acos (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))))) (acos.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64))) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (acos (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) R) (.f64 R (acos.f64 (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)))) (acos.f64 (fma.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 (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.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 (* (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) R) (.f64 R (acos.f64 (fma.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 (- (/ (PI) 2) (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (acos.f64 (fma.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 (- (/ (PI) 2) (acos (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.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 (- (* 1/2 (PI)) (acos (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.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 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2)))) (acos.f64 (fma.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 (asin (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (asin.f64 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 (* (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) R) (.f64 R (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (- (/ (PI) 2) (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (asin (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))))) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#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 phi1 phi1)
#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)) (fma.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)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (sin 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 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.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))) (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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi1 (+.f64 phi2 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi1 (+.f64 phi2 (.f64 phi1 (fma.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 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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)))) (fma.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)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.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 (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi1 (+.f64 phi2 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi1 (+.f64 phi2 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi1 (+.f64 phi2 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi1 (+.f64 phi2 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (fma.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) phi2))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (fma.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2) (.f64 #s(literal -1/6 binary64) phi1)))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* phi1 phi2) (*.f64 phi1 phi2))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) phi1))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (* (cos lambda2) (cos phi1)) (cos.f64 lambda2))
#s(approx (* (cos lambda2) (cos phi1)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda2) (cos phi1)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 lambda2)))))))
#s(approx (* (cos lambda2) (cos phi1)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (.f64 phi1 (+.f64 phi2 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 lambda2)))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (.f64 phi1 (+.f64 phi2 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) (cos.f64 lambda2))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi1)) (+.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 (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2))
#s(approx (* (cos phi2) (cos phi1)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (cos phi1)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 phi2) (cos phi1)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (* (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (* (sin phi2) (sin phi1)) (.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 phi2) (sin phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 phi2) (sin phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (* phi2 (sin phi1)) (*.f64 phi1 phi2))
#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)) (fma.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)) (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2) (*.f64 #s(literal 1/120 binary64) phi2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))
#s(approx (* (cos phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi2) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (/.f64 (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) phi1))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.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)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (fma.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 (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi1 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (/ (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (- (+ (* (pow (cos lambda1) 2) (pow (cos lambda2) 2)) (* (pow (sin lambda1) 2) (pow (sin lambda2) 2))) (* (cos lambda1) (* (cos lambda2) (* (sin lambda1) (sin lambda2)))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (+.f64 (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))))
#s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (.f64 #s(literal 1/24 binary64) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (*.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (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 phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 (fma.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 (fma.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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.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 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (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 (- (* 1/2 (PI)) phi1)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.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 (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (- (* 1/2 (PI)) phi1) (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* -1 phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 #s(literal -1 binary64) (.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 (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.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) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.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 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.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 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (.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 (+ phi1 (* 1/2 (PI)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) (+.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 (+ phi1 (* 1/2 (PI)))) (+.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 (+ phi1 (* 1/2 (PI)))) (+.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 (fma.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 (+ phi1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi1 (* 1/2 (PI))) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.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 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ 1 (* 1/2 (/ (PI) phi1))) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))
#s(approx (+ 1 (* 1/2 (/ (PI) phi1))) (/.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
#s(approx (* 1/2 (/ (PI) phi1)) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))
#s(approx (/ (PI) phi1) (/.f64 (PI.f64) phi1))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (fma.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 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (fma.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 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (fma.f64 phi1 (fma.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 phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (.f64 #s(literal 2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 #s(literal 2 binary64) (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 binary64) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (sin.f64 phi2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+.f64 (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+.f64 (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (sin.f64 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)))))) (*.f64 #s(literal -1 binary64) (sin.f64 phi2))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (cos.f64 phi2))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (+.f64 (cos.f64 phi2) (*.f64 phi1 (sin.f64 phi2))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (+.f64 (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (*.f64 #s(literal -1 binary64) (sin.f64 phi2))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (+.f64 (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (sin.f64 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (cos.f64 phi2))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (cos phi1) 2) #s(literal 1 binary64))
#s(approx (pow (cos phi1) 2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (pow (cos phi1) 2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (pow (cos phi1) 2) (+.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/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2)))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (+.f64 (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (cos.f64 phi2))) (sin.f64 phi2)))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (+.f64 (cos.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 phi2))))) (sin.f64 phi2)))))
#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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/.f64 (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (cos.f64 phi2)))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 4 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)))))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 4 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)))))) (cos.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 4 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (sin phi1) 2) (pow.f64 phi1 #s(literal 2 binary64)))
#s(approx (pow (sin phi1) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (pow (sin phi1) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin phi1) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.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 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 phi1 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (.f64 phi1 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (fma.f64 lambda2 (.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) lambda2)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 phi1 (fma.f64 lambda2 (.f64 phi1 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) lambda2))))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 phi1 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) lambda2))) (.f64 phi1 (fma.f64 lambda2 (.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 phi2) lambda2) (.f64 #s(literal 1/6 binary64) (/.f64 (sin.f64 phi2) lambda2)))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))))))))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) lambda2))) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 phi1 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))))))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) lambda2))) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 phi1 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 phi2) lambda2) (.f64 #s(literal 1/6 binary64) (/.f64 (sin.f64 phi2) lambda2))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))))))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) lambda2))) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 phi1 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) lambda2))) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2) (.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)))))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) lambda2))) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 phi1 (-.f64 (.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 phi2) lambda2) (.f64 #s(literal 1/6 binary64) (/.f64 (sin.f64 phi2) lambda2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)))))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) lambda2))) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 (cos.f64 phi2) (sin.f64 lambda1) (/.f64 (.f64 phi1 (.f64 (sin.f64 lambda1) (sin.f64 phi2))) (cos.f64 lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (fma.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (fma.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 phi2))))) (sin.f64 phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+.f64 (/.f64 (.f64 phi1 (sin.f64 phi2)) lambda2) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) lambda2))) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 phi2) lambda2) (.f64 #s(literal 1/6 binary64) (/.f64 (sin.f64 phi2) lambda2))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2))))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) lambda2))) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) lambda2)))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (sin.f64 phi2))) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (*.f64 phi1 (sin.f64 phi2))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 phi1 (.f64 (sin.f64 lambda1) (sin.f64 phi2))) (cos.f64 lambda1)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi2)))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi2)) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 #s(literal -2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 phi1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (fma.f64 phi1 (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi2)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (* phi1 (sin phi2)) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (fma.f64 #s(literal 2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#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))) (fma.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))) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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))) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 phi2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) phi1)
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) 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 (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (+.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 (- (* 1/120 (* phi1 phi1)) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (* 1/120 (* phi1 phi1)) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (* phi1 phi1) (pow.f64 phi1 #s(literal 2 binary64)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (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 (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 (fma.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 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.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 (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.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) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.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) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (-.f64 (.f64 phi1 (fma.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))))) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi1 (-.f64 (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi2) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 phi1 (fma.f64 #s(literal 7/8 binary64) (.f64 phi1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.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 (pow (* (sin phi2) (sin phi1)) 3) (*.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi1 (-.f64 (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 phi1 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi1 (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (sin.f64 phi2) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi1 (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.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 phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (sin phi1) (sin phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 phi1 phi2))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (.f64 phi1 (+.f64 phi2 (+.f64 (/.f64 (cos.f64 lambda1) phi1) (/.f64 (.f64 lambda2 (sin.f64 lambda1)) phi1)))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (.f64 phi1 (+.f64 phi2 (/.f64 (.f64 lambda2 (sin.f64 lambda1)) phi1))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (sin.f64 phi2))
#s(approx (+ (cos lambda2) (* phi1 phi2)) (*.f64 phi1 phi2))
#s(approx (+ (cos lambda2) (* phi1 phi2)) (*.f64 phi1 (+.f64 phi2 (/.f64 (cos.f64 lambda2) phi1))))
#s(approx (* (cos phi2) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (* (sin phi2) (sin phi1)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))
#s(approx (* phi2 (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (sin.f64 phi2))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (* 1/2 (PI)) phi1) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (fma.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 (* 1/2 (PI)))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi1 (* 1/2 (PI))) phi1)
#s(approx (+ phi1 (* 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) phi1)
#s(approx (* phi1 (+ 1 (* 1/2 (/ (PI) phi1)))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
#s(approx (+ 1 (* 1/2 (/ (PI) phi1))) #s(literal 1 binary64))
#s(approx (+ 1 (* 1/2 (/ (PI) phi1))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (+.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))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi1)
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (*.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)) #s(literal 1 binary64))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (cos phi1) 2) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (cos phi2)) (*.f64 (cos.f64 phi1) (cos.f64 phi2)))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (sin phi1) 2) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)) #s(literal 1 binary64))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 5 binary64))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 4 binary64))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (- (* 1/120 (* phi1 phi1)) 1/6) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 #s(literal 1/2 binary64) (+.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)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.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 (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1))) phi1))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda2 (sin.f64 lambda1)) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.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 (+ (cos lambda2) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) phi1))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (.f64 (cos.f64 phi2) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (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 (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (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 (sin (+ phi1 (* 1/2 (PI)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi1 (* 1/2 (PI))))) (.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 (* phi1 (+ 1 (* 1/2 (/ (PI) 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 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.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 (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))) (+.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/120 binary64)))))
#s(approx (* (+ (* (- (* 1/120 (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 4 binary64))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (* 1/2 (+ (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.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)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (cos phi2) #s(literal 1 binary64))
#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 phi2 phi2)
#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)) (fma.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)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (sin 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 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 (+ (* (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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 phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
#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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (+ (* phi2 (sin phi1)) (* (cos phi1) (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 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.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)))) (fma.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)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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 (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) phi2))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (+.f64 phi1 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2)))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))) (+.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))) phi1))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (+.f64 phi1 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (+.f64 phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (fma.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) phi1))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (fma.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (.f64 #s(literal -1/6 binary64) phi2)))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) phi1) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) phi1))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) phi1) (*.f64 #s(literal 1/24 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda2) (cos.f64 phi1))))) (.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))
#s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2)))))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.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 (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (cos phi1))) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1))
#s(approx (* (cos phi2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (cos phi2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 phi2) (cos phi1)) (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (* (sin phi2) (sin phi1)) (.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 phi2) (sin phi1)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 phi2) (sin phi1)) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi1) (fma.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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 phi2 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (+.f64 phi1 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi2 (+.f64 phi1 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 phi2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (.f64 phi1 (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (fma.f64 phi1 phi2 (.f64 phi1 (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1)))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (fma.f64 phi1 (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1)) (.f64 phi2 (+.f64 phi1 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* phi1 (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1))) (fma.f64 phi1 (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1)) (.f64 phi2 (+.f64 phi1 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal -1/6 binary64) (*.f64 phi1 phi2))))))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1)))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 phi2 (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (fma.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))
#s(approx (+ (sin phi2) (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (fma.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) phi1) (.f64 #s(literal -1/6 binary64) phi2)))) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (/.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) phi1))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) phi1) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1))) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))
#s(approx (/ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1) (.f64 #s(literal 1/24 binary64) (/.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) phi1))))) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi2 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (.f64 (cos.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))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.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))))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.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))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi2 (* 1/2 (PI))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (- (* 1/2 (PI)) phi2) (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* -1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.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))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.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))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 phi2 #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #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 (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (- (* 1/2 (PI)) phi1)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.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 (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi2 (fma.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 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.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 (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (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 lambda1) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (sin.f64 phi1))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+.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 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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)) (fma.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 phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.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 phi2 (+.f64 (sin.f64 phi1) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (.f64 (cos.f64 lambda1) (+.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)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (fma.f64 phi2 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 lambda1) (+.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))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (fma.f64 phi2 (fma.f64 phi2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (+.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))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 phi2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 (cos.f64 lambda1) (+.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))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (sin.f64 phi1)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi1))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))))))
#s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (sin.f64 phi1))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal -1 binary64) (sin.f64 phi1))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (cos.f64 phi1))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (+.f64 (cos.f64 phi1) (*.f64 phi2 (sin.f64 phi1))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (*.f64 #s(literal -1 binary64) (sin.f64 phi1))))))
#s(approx (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi1)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (sin.f64 phi1))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (cos.f64 phi1))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (cos phi2) 2) #s(literal 1 binary64))
#s(approx (pow (cos phi2) 2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (pow (cos phi2) 2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (pow (cos phi2) 2) (+.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/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (cos.f64 phi1))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (cos.f64 phi1))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))) (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 phi1))))) (sin.f64 phi1)))))
#s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1))
#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)) (fma.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)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/.f64 (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (cos.f64 phi1)))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 phi2 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (cos.f64 phi1)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))) (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (cos.f64 phi1)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (sin phi2) 2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (pow (sin phi2) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (pow (sin phi2) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin phi2) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.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 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 phi2 (-.f64 (fma.f64 lambda2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (.f64 phi2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (sin.f64 phi1)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (fma.f64 lambda2 (.f64 phi2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) lambda2)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 phi2 (fma.f64 lambda2 (.f64 phi2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) lambda2))))))))
#s(approx (* lambda2 (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (.f64 phi2 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) lambda2))) (.f64 phi2 (fma.f64 lambda2 (.f64 phi2 (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 phi1) lambda2) (.f64 #s(literal 1/6 binary64) (/.f64 (sin.f64 phi1) lambda2)))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))))))))))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 phi2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) lambda2))) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 phi2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 phi2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))))))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) lambda2))) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (- (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 phi2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 phi2 (-.f64 (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (fma.f64 phi2 (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 phi1) lambda2) (.f64 #s(literal 1/6 binary64) (/.f64 (sin.f64 phi1) lambda2))))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))))))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) lambda2))) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 phi2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) lambda2))) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 phi2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2) (.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)))))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) lambda2))) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))))
#s(approx (+ (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (fma.f64 phi2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2) (fma.f64 #s(literal 2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))) (.f64 phi2 (-.f64 (.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 phi1) lambda2) (.f64 #s(literal 1/6 binary64) (/.f64 (sin.f64 phi1) lambda2)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)))))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) lambda2))) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (*.f64 (cos.f64 phi1) (sin.f64 lambda1)))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 lambda1) (/.f64 (.f64 phi2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (cos.f64 lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (fma.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))))))
#s(approx (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (fma.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))))))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (sin.f64 lambda1))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/3 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda1)))))))
#s(approx (* (pow (cos phi2) 2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 #s(literal 1/3 binary64) (sin.f64 lambda1))))))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (sin.f64 phi1)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 phi1))))) (sin.f64 phi1)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))))
#s(approx (* (cos lambda1) (* (cos phi1) (cos phi2))) (fma.f64 (cos.f64 lambda1) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (+.f64 (/.f64 (.f64 phi2 (sin.f64 phi1)) lambda2) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) lambda2))) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)))
#s(approx (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 phi1) lambda2) (.f64 #s(literal 1/6 binary64) (/.f64 (sin.f64 phi1) lambda2))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2))))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi1) lambda2))) (/.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi2 (sin.f64 phi1))) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 phi2 (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))))
#s(approx (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (fma.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (*.f64 phi2 (sin.f64 phi1))))))))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (*.f64 (cos.f64 phi1) (sin.f64 lambda1)))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 phi2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (cos.f64 lambda1)) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))))) (fma.f64 #s(literal -4 binary64) (/.f64 (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1))) (/.f64 (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (cos.f64 phi1)))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 lambda1)))) (*.f64 (cos.f64 phi1) (sin.f64 lambda1))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (sin.f64 lambda1))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (fma.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))) (fma.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 #s(literal -2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2) (fma.f64 phi2 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 phi2 (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 phi1)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 (/.f64 (.f64 phi2 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
#s(approx (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) (.f64 (cos.f64 lambda1) (cos.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/3 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 4 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))
#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)) (fma.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)) (fma.f64 #s(literal -1/6 binary64) phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64))) (*.f64 #s(literal 1/120 binary64) phi1))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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)))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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)))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/2 binary64) (+.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))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (+.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 phi2 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.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))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
#s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#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))) (fma.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))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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))) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (+ (* (* phi2 phi2) -1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* phi2 phi2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.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 (- (* (* phi2 phi2) 1/24) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (* phi2 phi2) 1/24) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 phi1)))))) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2))))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi1) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64)))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* -1/2 (pow phi2 2)) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (pow phi2 2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.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 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi2 (fma.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/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.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 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (+.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 (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (+.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 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) #s(literal 1 binary64))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (+.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 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (+.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 (pow phi2 6) (pow.f64 phi2 #s(literal 6 binary64)))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 (+.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)))) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 (+.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)))) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (/ 1 (pow phi2 6)) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (-.f64 (.f64 phi2 (fma.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))))) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (*.f64 #s(literal 1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (-.f64 (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -3/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (.f64 (sin.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (.f64 #s(literal -1 binary64) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 phi2 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (pow (* (sin phi2) (sin phi1)) 3)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 phi2 (fma.f64 #s(literal 7/8 binary64) (.f64 phi2 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 3) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (fma.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.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 (pow (* (sin phi2) (sin phi1)) 3) (*.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (fma.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi2 (-.f64 (.f64 phi2 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (sin phi1)) 2) (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 phi2 (-.f64 (.f64 #s(literal -1/3 binary64) (.f64 phi2 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi2 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))))))
#s(approx (* (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) phi2)
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) phi2)
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) 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 (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (+.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 (- (* (* phi2 phi2) 1/120) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (* (* phi2 phi2) 1/120) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) phi2)
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) 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 (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) 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 (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (+.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 (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (+.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 (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (-.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 (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (.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(approx (+ (* (* phi2 phi2) -1/5040) 1/120) #s(literal 1/120 binary64))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.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) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (-.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 (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (.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(approx (+ (* (* phi2 phi2) -1/720) 1/24) #s(literal 1/24 binary64))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.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 phi2) (sin phi1)) (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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 (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.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 (+ (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.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)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.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 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (cos phi2) (cos.f64 phi2))
#s(approx (sin phi2) (sin.f64 phi2))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2)) (sin.f64 phi1))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (.f64 phi2 (+.f64 phi1 (+.f64 (/.f64 (cos.f64 lambda1) phi2) (/.f64 (.f64 lambda2 (sin.f64 lambda1)) phi2)))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (.f64 phi2 (+.f64 phi1 (/.f64 (.f64 lambda2 (sin.f64 lambda1)) phi2))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (*.f64 phi2 (sin.f64 phi1)))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) phi2))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) (*.f64 phi2 (+.f64 phi1 (/.f64 (cos.f64 lambda2) phi2))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi2 (* 1/2 (PI))) phi2)
#s(approx (+ phi2 (* 1/2 (PI))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- (* 1/2 (PI)) phi2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
#s(approx (* (cos (* 1/2 (PI))) (sin phi2)) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) phi2)
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2))) (/.f64 phi1 phi2))))
#s(approx (pow (cos phi2) 2) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
#s(approx (pow (sin phi2) 2) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2))) (/.f64 phi1 phi2))))
#s(approx (+ phi2 (/ (PI) 2)) phi2)
#s(approx (+ phi2 (/ (PI) 2)) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2)
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4))))) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) #s(literal -1/720 binary64))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (-.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64)))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (-.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))
#s(approx (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (*.f64 (pow.f64 phi2 #s(literal 3 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (* phi2 phi2) 1/120) 1/6) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 7 binary64))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (*.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/5040) 1/120) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/720) 1/24) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))))
#s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))))
#s(approx (* phi2 (+ (sin phi1) (/ (* (cos phi1) (cos (- lambda1 lambda2))) phi2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2))))))
#s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2))))))
#s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1))) phi2))))))
#s(approx (+ (* lambda2 (sin lambda1)) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda2 (sin.f64 lambda1)) phi2))))))
#s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi1)) phi2))))))
#s(approx (+ (cos lambda2) (* phi1 phi2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) phi2))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ phi2 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64)))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2))))))
#s(approx (+ (* (cos lambda1) (* (cos phi1) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos phi1) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 phi1) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (cos phi1) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) R) (.f64 R (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (acos (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (acos.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))))) (* (sin phi1) (sin phi2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))
#s(approx (sin (- (+ phi2 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1 binary64)))))
#s(approx (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1 binary64)))))
#s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64)))))
#s(approx (sin (+ (+ phi2 (/ (PI) 2)) phi1)) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))
#s(approx (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/120 binary64)))))
#s(approx (* (+ (* (- (* (* phi2 phi2) 1/120) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 #s(literal 1/5040 binary64) (*.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (*.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* (* phi2 phi2) -1/5040) 1/120) (* phi2 phi2)) 1/6) (* phi2 phi2)) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 7 binary64)) (-.f64 (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64))))))))

eval2.4s (7.1%)

Memory: 135.1MiB live, 3 687.8MiB allocated; 2.3s collecting garbage
Compiler: Compiled 934 229 to 49 878 computations (94.7% saved)

prune1.2s (3.7%)

Memory

22.9MiB live, 2 710.9MiB allocated; 369ms collecting garbage

Pruning

200 alts after pruning (99 fresh and 101 done)

	Pruned	Kept	Total
New	10 703	99	10 802
Fresh	0	0	0
Picked	65	72	137
Done	1	29	30
Total	10 769	200	10 969

Accuracy

96.2%

Counts

10 969 → 200

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	55.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))) R)
	39.0%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) R)
	55.1%	(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
✓	30.9%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
	16.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
✓	22.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
✓	95.8%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
✓	55.1%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
✓	54.9%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
✓	20.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))) R)
✓	20.5%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
	29.5%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))) R)
✓	31.9%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
✓	47.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
✓	55.4%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
	55.1%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
	33.3%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
✓	33.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda2) #s(literal 1 binary64)))))) R)
✓	24.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
✓	24.4%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
✓	24.3%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	19.3%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	18.4%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	18.9%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.9%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
	19.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
	19.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
✓	26.6%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
	10.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
	22.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
✓	53.1%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
	21.2%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
	20.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
✓	25.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
✓	25.0%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
✓	26.7%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	17.8%	(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
	10.8%	(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
	8.3%	(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
✓	55.1%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	55.3%	(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	55.0%	(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
	28.5%	(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
	31.2%	(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
	33.4%	(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
	33.0%	(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
	19.1%	(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
✓	31.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
	19.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)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) #s(approx ( -1/2 (cos lambda2)) #s(literal -1/2 binary64))))))))) R)
	2.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	19.5%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	10.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
	9.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
✓	22.7%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
✓	16.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
	18.8%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
	11.9%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
	11.6%	(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
	15.8%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
	10.6%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
	10.7%	(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
✓	24.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
✓	24.2%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	11.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
	39.6%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) R)
	10.3%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
	10.9%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	10.9%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	8.9%	(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	25.0%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 #s(approx (- (+ ( 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
✓	33.0%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) R)
	17.0%	(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
	10.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi2)) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	17.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	18.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	18.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	14.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	19.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
✓	21.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
	12.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
✓	26.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
✓	20.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
	19.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
✓	18.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	20.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	19.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
	13.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
✓	21.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
✓	20.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
	13.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
✓	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	21.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
	13.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
✓	29.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
✓	19.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	21.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	19.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
	10.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	20.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
✓	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
	12.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
✓	34.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	20.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	55.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	54.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
✓	29.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
	16.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
✓	95.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	38.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
✓	47.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
✓	25.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) lambda1) (sin.f64 lambda2)))))) R)
✓	26.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
✓	54.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
✓	31.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
✓	31.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	15.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	13.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
✓	29.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	29.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
	29.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
	11.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
✓	35.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
✓	19.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
✓	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
✓	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
✓	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
✓	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
	19.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
✓	16.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
	12.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
	16.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
	16.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
✓	19.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
✓	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
✓	24.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
✓	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
✓	19.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
	19.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
	19.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
	19.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
	11.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
	14.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
	13.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
✓	29.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
✓	22.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
✓	25.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
✓	55.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
✓	28.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
✓	29.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
✓	33.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	15.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
✓	31.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
✓	16.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	7.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
✓	15.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
	22.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
	21.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
✓	29.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
✓	32.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
✓	19.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
✓	19.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
✓	25.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
	11.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
	11.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
✓	25.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
	12.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
✓	25.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
✓	26.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
✓	32.3%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
✓	8.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
✓	14.7%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
✓	18.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
	3.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
✓	10.4%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (*.f64 phi1 phi2))))) R)
✓	11.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
	29.9%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
	17.1%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
✓	23.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
	18.5%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
✓	8.8%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
	12.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
✓	16.6%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
✓	12.2%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
	17.0%	(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
✓	55.1%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
	33.0%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
	25.2%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
	23.8%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
	26.9%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
	29.6%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) R)
	32.3%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
	32.2%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
✓	95.6%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
	47.6%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
	55.3%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
	54.2%	(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)

Compiler

Compiled 27 855 to 9 193 computations (67% saved)

regimes1.1s (3.1%)

Memory

-14.6MiB live, 1 713.1MiB allocated; 188ms collecting garbage

Counts

381 → 1

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) 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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.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)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) 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 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi2)) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) 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)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) 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 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 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 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 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) 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)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) 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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (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 (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) #s(approx ( -1/2 (cos lambda2)) #s(literal -1/2 binary64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.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)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (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)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.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)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (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) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.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)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.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 lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.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)) (fma.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)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (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)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))) 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 lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) #s(literal 2 binary64)) #s(approx (pow (* (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (/.f64 (-.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (sin phi2) (sin phi1)) 2) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (-.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 #s(approx (- (+ ( 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* lambda2 (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2)))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 phi1) (sin.f64 lambda1)) (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi1)) lambda2)) (.f64 (cos.f64 phi1) (sin.f64 lambda1)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (-.f64 (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) R)
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2)))) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(.f64 (acos.f64 (/.f64 (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (sin.f64 phi1)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 #s(approx (* (cos phi1) (+ (* (pow (cos lambda1) 3) (pow (cos lambda2) 3)) (* (pow (sin lambda1) 3) (pow (sin lambda2) 3)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 3 binary64))))) (-.f64 (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 lambda2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 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 (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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx ( (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.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)) (/.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))) (fma.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (-.f64 #s(approx (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (.f64 (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda2) #s(literal 2 binary64)))) (.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)) (/.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))) (fma.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))))))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) (-.f64 #s(approx (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (sin.f64 lambda1)))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (-.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (-.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)

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

Calls

10 calls:

140.0ms	(cos.f64 (-.f64 lambda1 lambda2))
109.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
105.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
100.0ms	(-.f64 lambda1 lambda2)
100.0ms	lambda2

Results

Accuracy	Segments	Branch
95.8%	1	`(-.f64 lambda1 lambda2)`
95.8%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
95.8%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
95.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)))))`
95.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)`
95.8%	1	`R`
95.8%	1	`lambda1`
95.8%	1	`lambda2`
95.8%	1	`phi1`
95.8%	1	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes994.0ms (3%)

Memory

29.3MiB live, 1 759.3MiB allocated; 285ms collecting garbage

Counts

348 → 1

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) 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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.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)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) 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 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi2)) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) 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)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) 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 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 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 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 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) 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)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) 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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (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 (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) #s(approx ( -1/2 (cos lambda2)) #s(literal -1/2 binary64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.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)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (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)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.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)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (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) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.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)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.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 lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)

Outputs

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

Calls

10 calls:

113.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
99.0ms	phi2
97.0ms	R
97.0ms	(cos.f64 (-.f64 lambda1 lambda2))
93.0ms	lambda2

Results

Accuracy	Segments	Branch
95.7%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
95.7%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
95.7%	1	`phi2`
95.7%	1	`R`
95.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)))))`
95.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)`
95.7%	1	`lambda2`
95.7%	1	`phi1`
95.7%	1	`(-.f64 lambda1 lambda2)`
95.7%	1	`lambda1`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes1.2s (3.5%)

Memory

-9.5MiB live, 1 543.6MiB allocated; 193ms collecting garbage

Counts

347 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) 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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.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)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) 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 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (sin phi2))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.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))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi2)) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 #s(approx (- ( 1/2 (PI)) 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)) (cos.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))) 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 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 2 binary64)))) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) #s(approx ( (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (+.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))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (acos.f64 (fma.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 #s(approx (+ 1 (/ lambda2 lambda1)) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) (*.f64 lambda1 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (sin.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 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 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (sin.f64 phi2) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) 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)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1))))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (+.f64 (sin.f64 phi2) (/.f64 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) phi1)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) 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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) #s(approx (+ (* (- (* (+ (* (* phi2 phi2) -1/720) 1/24) (* phi2 phi2)) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) #s(approx (- (+ ( 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))))) (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 (cos (- lambda1 lambda2)) #s(approx (+ (* (- (* (* (cos lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) #s(approx ( -1/2 (cos lambda2)) #s(literal -1/2 binary64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.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)) #s(approx (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (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)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.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)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (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) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (fma.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)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.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 lambda2) lambda1) -1/2) (neg (sin lambda2))) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1))) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (cos.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)

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

Calls

10 calls:

189.0ms	phi1
166.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)
116.0ms	(cos.f64 (-.f64 lambda1 lambda2))
113.0ms	lambda2
100.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
86.5%	3	`phi2`
76.5%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
76.5%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
76.5%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
76.5%	1	`R`
76.5%	1	`lambda2`
85.6%	3	`phi1`
76.5%	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)`
81.4%	3	`lambda1`
76.5%	1	`(-.f64 lambda1 lambda2)`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes91.0ms (0.3%)

Memory

35.2MiB live, 123.4MiB allocated; 7ms collecting garbage

Counts

272 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) 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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.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)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 (fma.f64 (.f64 (cos.f64 phi2) (cos.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)

Outputs

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

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

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

Calls

1 calls:

76.0ms

phi2

Results

Accuracy	Segments	Branch
86.5%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes122.0ms (0.4%)

Memory

-30.5MiB live, 116.6MiB allocated; 7ms collecting garbage

Counts

269 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) 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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.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)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (cos.f64 phi1)))) R)

Outputs

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

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

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

Calls

1 calls:

78.0ms

phi2

Results

Accuracy	Segments	Branch
86.5%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes739.0ms (2.2%)

Memory

15.2MiB live, 1 239.9MiB allocated; 97ms collecting garbage

Counts

268 → 5

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) 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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.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)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 ( 1/2 (PI)))) phi1)) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)

Outputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)

Calls

10 calls:

94.0ms	phi2
78.0ms	phi1
78.0ms	lambda1
74.0ms	lambda2
69.0ms	(acos.f64 (+.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
65.7%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
59.0%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
66.4%	3	`(-.f64 lambda1 lambda2)`
61.5%	3	`(.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)`
61.5%	3	`R`
76.8%	3	`lambda2`
59.0%	2	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
81.2%	5	`lambda1`
76.3%	4	`phi1`
76.5%	3	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes86.0ms (0.3%)

Memory

13.5MiB live, 158.0MiB allocated; 25ms collecting garbage

Counts

260 → 5

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) 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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.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)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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)) (/ (+ (pow (* (cos lambda1) (cos lambda2)) 3) (pow (* (sin lambda1) (sin lambda2)) 3)) (+ (* (* (cos lambda1) (cos lambda2)) (* (cos lambda1) (cos lambda2))) (- (* (* (sin lambda1) (sin lambda2)) (* (sin lambda1) (sin lambda2))) (* (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (cos.f64 phi2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)

Outputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)

Calls

1 calls:

71.0ms

lambda1

Results

Accuracy	Segments	Branch
81.2%	5	`lambda1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes79.0ms (0.2%)

Memory

15.0MiB live, 160.0MiB allocated; 10ms collecting garbage

Counts

257 → 4

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) 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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)

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

Calls

1 calls:

65.0ms

lambda1

Results

Accuracy	Segments	Branch
78.4%	4	`lambda1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes207.0ms (0.6%)

Memory

-5.8MiB live, 416.7MiB allocated; 26ms collecting garbage

Counts

256 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) 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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

Outputs

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

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

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

Calls

3 calls:

64.0ms	lambda2
63.0ms	lambda1
63.0ms	phi2

Results

Accuracy	Segments	Branch
67.2%	3	`phi2`
76.4%	3	`lambda2`
76.4%	3	`lambda1`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes447.0ms (1.3%)

Memory

-6.1MiB live, 759.0MiB allocated; 90ms collecting garbage

Counts

255 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) 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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) (.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

Outputs

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

(*.f64 (acos.f64 (+.f64 (*.f64 (sin.f64 phi1) #s(approx (sin phi2) 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)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

Calls

6 calls:

90.0ms	lambda2
81.0ms	(-.f64 lambda1 lambda2)
66.0ms	(cos.f64 (-.f64 lambda1 lambda2))
65.0ms	lambda1
63.0ms	phi1

Results

Accuracy	Segments	Branch
58.1%	2	`(-.f64 lambda1 lambda2)`
66.4%	3	`phi2`
55.1%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
62.0%	3	`phi1`
55.1%	1	`lambda1`
65.6%	3	`lambda2`

Compiler

Compiled 11 to 33 computations (-200% saved)

regimes605.0ms (1.8%)

Memory

20.8MiB live, 1 015.0MiB allocated; 101ms collecting garbage

Counts

254 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)

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

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

Calls

8 calls:

85.0ms	R
82.0ms	phi2
78.0ms	(-.f64 lambda1 lambda2)
75.0ms	phi1
72.0ms	lambda2

Results

Accuracy	Segments	Branch
55.7%	3	`(-.f64 lambda1 lambda2)`
45.7%	2	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
45.7%	2	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
44.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)`
44.1%	1	`R`
57.2%	2	`phi1`
48.1%	3	`lambda2`
59.1%	3	`phi2`

Compiler

Compiled 59 to 74 computations (-25.4% saved)

regimes87.0ms (0.3%)

Memory

8.6MiB live, 199.0MiB allocated; 22ms collecting garbage

Counts

253 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)

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

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

Calls

1 calls:

70.0ms

phi2

Results

Accuracy	Segments	Branch
59.0%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes85.0ms (0.3%)

Memory

1.8MiB live, 189.6MiB allocated; 19ms collecting garbage

Counts

246 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)

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

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

Calls

1 calls:

69.0ms

phi2

Results

Accuracy	Segments	Branch
58.8%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes82.0ms (0.2%)

Memory

-0.5MiB live, 187.2MiB allocated; 19ms collecting garbage

Counts

240 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) 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 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) 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 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) phi1)) (+.f64 (/.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) phi1) (/.f64 (.f64 (sin.f64 lambda1) (sin.f64 lambda2)) phi1))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) #s(approx (- (/ (PI) 2) (acos (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (acos.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))))) 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 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) 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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)

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

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

Calls

1 calls:

66.0ms

phi2

Results

Accuracy	Segments	Branch
58.8%	3	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes88.0ms (0.3%)

Memory

9.7MiB live, 198.6MiB allocated; 32ms collecting garbage

Counts

232 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi1 (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (cos.f64 phi1)) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 #s(approx (sin lambda1) 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 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 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos 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)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi1) (sin (+ phi2 (* 1/2 (PI))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 phi1) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (- (* 1/2 (PI)) phi1))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) (fma.f64 (cos.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) #s(approx (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (fma.f64 (cos.f64 lambda1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) 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)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (/.f64 #s(approx (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) #s(approx (* (pow (cos phi1) 2) (pow (cos (- lambda1 lambda2)) 2)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) #s(approx (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (/ (- (* lambda1 lambda1) (* lambda2 lambda2)) (+ lambda1 lambda2))))) (*.f64 (cos.f64 phi2) (cos.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (+.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (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)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 (+.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 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 #s(approx (+ phi1 (+ phi2 (* 1/2 (PI)))) phi2)) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 ( 1/2 (PI))) phi1) phi2)))) (*.f64 (sin.f64 phi1) (sin.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (sin (- lambda1 lambda2)) (cos (/ (PI) 2))) (* (cos (- lambda1 lambda2)) (sin (/ (PI) 2)))))) #s(approx (* (cos phi2) (+ (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))) (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) #s(approx (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1))) (+.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 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi1 (sin.f64 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #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)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 #s(approx (+ phi2 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 ( -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.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)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 #s(approx (- (+ phi2 (* 1/2 (PI))) phi1) (.f64 #s(literal -1 binary64) phi1))))) (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal 1/2 binary64) #s(approx (* (cos lambda1) (+ (sin (+ phi1 (+ phi2 (* 1/2 (PI))))) (sin (- (+ phi2 (* 1/2 (PI))) phi1)))) (+.f64 (sin.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)

Outputs

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

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

Calls

1 calls:

73.0ms

phi2

Results

Accuracy	Segments	Branch
57.3%	2	`phi2`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes111.0ms (0.3%)

Memory

6.2MiB live, 246.9MiB allocated; 31ms collecting garbage

Counts

176 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (*.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)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)

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

Calls

2 calls:

53.0ms	phi2
48.0ms	phi1

Results

Accuracy	Segments	Branch
57.2%	2	`phi1`
58.7%	3	`phi2`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes108.0ms (0.3%)

Memory

-0.2MiB live, 231.1MiB allocated; 24ms collecting garbage

Counts

175 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda2) (cos phi2)) (cos phi1)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (sin.f64 #s(approx (+ phi2 (* 1/2 (PI))) phi2))) (cos.f64 (-.f64 lambda1 lambda2))))) R)

Outputs

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

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.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)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)

Calls

2 calls:

53.0ms	phi2
46.0ms	phi1

Results

Accuracy	Segments	Branch
58.4%	3	`phi2`
58.7%	3	`phi1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes105.0ms (0.3%)

Memory

-19.1MiB live, 129.7MiB allocated; 67ms collecting garbage

Counts

168 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (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) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) (cos.f64 phi1)))) R)

Outputs

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

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.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)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)

Calls

1 calls:

45.0ms

phi1

Results

Accuracy	Segments	Branch
58.7%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes51.0ms (0.2%)

Memory

31.0MiB live, 120.6MiB allocated; 7ms collecting garbage

Counts

162 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 (-.f64 #s(approx (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) (.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1)))) #s(literal 1 binary64)))))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) #s(approx ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (fma.f64 phi2 (sin.f64 phi1) (*.f64 (cos.f64 lambda2) (cos.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) #s(approx (* (cos phi2) (cos phi1)) (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)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx (* (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2) (*.f64 (sin.f64 phi2) phi1)))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi2) (sin.f64 phi1) (.f64 #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))) #s(approx (cos phi1) #s(literal 1 binary64))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (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 (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (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)))) (fma.f64 (.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2)) (cos.f64 phi1) #s(approx ( (sin phi2) (sin phi1)) (*.f64 phi2 (sin.f64 phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) 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) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.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)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) #s(approx (cos phi2) #s(literal 1 binary64))) (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)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.f64 phi2 (sin.f64 phi1) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (cos phi1) #s(literal 1 binary64)) #s(approx (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) (sin.f64 phi2) (.f64 #s(approx (* (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) #s(approx (sin (- (* 1/2 (PI)) phi1)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (fma.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 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) phi1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 (+.f64 (sin.f64 phi1) (/.f64 (.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.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)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 #s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.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))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 #s(literal 1 binary64) lambda1))))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) phi1) (sin.f64 phi2)) (.f64 #s(approx ( (cos phi1) (cos phi2)) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 #s(approx (sin phi1) phi1))) (.f64 (.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (/.f64 (-.f64 (.f64 lambda1 lambda1) (*.f64 lambda2 lambda2)) #s(approx (+ lambda1 lambda2) lambda2)))))) R)
(.f64 (acos.f64 (+.f64 #s(approx ( (sin phi1) (sin phi2)) (.f64 phi2 (sin.f64 phi1))) (.f64 (.f64 (cos.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 #s(approx (- lambda1 lambda2) lambda1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (sin.f64 phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2))))))) R)
(.f64 (acos.f64 (fma.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) 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)) #s(approx (* phi1 (sin phi2)) (.f64 phi1 phi2))) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2)) (cos.f64 phi1) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi1)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 lambda1) #s(approx (* (cos phi2) (cos phi1)) (cos.f64 phi2)) (*.f64 (sin.f64 phi2) (sin.f64 phi1))))) R)

Outputs

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

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

Calls

1 calls:

43.0ms

phi1

Results

Accuracy	Segments	Branch
57.0%	2	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes36.0ms (0.1%)

Memory

-25.6MiB live, 72.1MiB allocated; 11ms collecting garbage

Counts

95 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* phi1 (sin phi2)) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi1 ( 1/2 (PI))) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2))))) R)
(.f64 (acos.f64 (fma.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2) #s(approx ( (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (* (cos lambda2) (cos phi2)) #s(approx (cos lambda2) #s(literal 1 binary64))) (cos.f64 phi1) (*.f64 (sin.f64 phi2) #s(approx (sin phi1) phi1))))) R)
(.f64 (acos.f64 (+.f64 (.f64 (sin.f64 phi1) #s(approx (sin phi2) phi2)) #s(approx (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi1))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin 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) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (- ( 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (+.f64 (cos.f64 lambda1) (fma.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 (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) ( lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi1) #s(literal 1 binary64)) (*.f64 (sin.f64 phi1) phi2)))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi1) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi1) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (.f64 lambda1 #s(approx (- (+ ( 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1) (/.f64 lambda2 lambda1)))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.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 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)) (sin.f64 (neg.f64 lambda2)))))) (cos.f64 phi2)))) R)

Outputs

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

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

Calls

1 calls:

25.0ms

phi1

Results

Accuracy	Segments	Branch
57.0%	2	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes70.0ms (0.2%)

Memory

26.9MiB live, 162.8MiB allocated; 12ms collecting garbage

Counts

47 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi1)))) R)

Outputs

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

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

Calls

5 calls:

15.0ms	phi2
14.0ms	(-.f64 lambda1 lambda2)
14.0ms	(cos.f64 (-.f64 lambda1 lambda2))
12.0ms	phi1
12.0ms	lambda1

Results

Accuracy	Segments	Branch
47.3%	3	`(-.f64 lambda1 lambda2)`
44.1%	1	`lambda1`
44.1%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
53.7%	2	`phi2`
51.4%	2	`phi1`

Compiler

Compiled 10 to 28 computations (-180% saved)

regimes140.0ms (0.4%)

Memory

25.2MiB live, 309.5MiB allocated; 27ms collecting garbage

Counts

46 → 2

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 (cos.f64 phi2) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)

Outputs

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

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

Calls

10 calls:

17.0ms	R
17.0ms	phi2
14.0ms	lambda2
14.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
14.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
35.9%	3	`(.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)`
35.4%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
35.9%	3	`R`
43.9%	3	`lambda1`
36.0%	3	`(-.f64 lambda1 lambda2)`
38.2%	3	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
38.2%	3	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
44.0%	3	`lambda2`
45.5%	2	`phi1`
43.3%	2	`phi2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes29.0ms (0.1%)

Memory

-29.5MiB live, 61.4MiB allocated; 9ms collecting garbage

Counts

41 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (*.f64 (cos.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi1)))) R)

Outputs

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

(*.f64 (acos.f64 #s(approx (+ (* (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 #s(approx (+ (sin phi2) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))) R)

Calls

2 calls:

13.0ms	phi2
10.0ms	phi1

Results

Accuracy	Segments	Branch
44.1%	3	`phi2`
44.3%	3	`phi1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes61.0ms (0.2%)

Memory

11.4MiB live, 110.3MiB allocated; 21ms collecting garbage

Counts

39 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 (cos.f64 lambda2) (cos.f64 phi1))))) R)

Outputs

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

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

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

Calls

4 calls:

26.0ms	phi2
13.0ms	lambda1
10.0ms	lambda2
10.0ms	phi1

Results

Accuracy	Segments	Branch
38.9%	3	`lambda1`
32.3%	1	`lambda2`
39.1%	2	`phi2`
41.0%	3	`phi1`

Compiler

Compiled 4 to 20 computations (-400% saved)

regimes115.0ms (0.3%)

Memory

25.6MiB live, 259.4MiB allocated; 21ms collecting garbage

Counts

38 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) ( lambda2 (sin lambda1))) (*.f64 lambda2 #s(approx (+ (sin lambda1) (/ (cos lambda1) lambda2)) (+.f64 lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))) (cos.f64 phi1)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64))))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 #s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))))) R)

Outputs

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

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

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

Calls

10 calls:

15.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
12.0ms	phi1
12.0ms	R
12.0ms	lambda1
12.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
24.1%	1	`lambda2`
24.1%	1	`R`
24.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)`
32.6%	4	`(-.f64 lambda1 lambda2)`
30.9%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
24.1%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
24.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)))))`
24.1%	1	`lambda1`
30.5%	2	`phi2`
33.0%	3	`phi1`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes13.0ms (0%)

Memory

-15.9MiB live, 29.7MiB allocated; 3ms collecting garbage

Counts

32 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))) R)

Outputs

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

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

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

Calls

1 calls:

11.0ms

phi1

Results

Accuracy	Segments	Branch
32.9%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes15.0ms (0%)

Memory

-24.9MiB live, 26.7MiB allocated; 6ms collecting garbage

Counts

31 → 3

Calls

Call 1

Inputs
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) #s(approx (cos phi1) #s(literal 1 binary64)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos lambda2) (cos phi1)) (cos.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (cos.f64 lambda2))))) R)
(.f64 (acos.f64 #s(approx (/ (- (pow ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) 2) (pow (* (sin phi2) (sin phi1)) 2)) (- (* (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1)))) #s(approx (- (+ (* lambda2 (- (* 2 (/ (* (cos lambda1) (* (pow (cos phi1) 2) (* (pow (cos phi2) 2) (sin lambda1)))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (cos phi1) (* (cos phi2) (* (sin lambda1) (- (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (* (pow (sin phi1) 2) (pow (sin phi2) 2)))))) (pow (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))) 2)))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi1) 2) (pow (cos phi2) 2))) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos lambda1) (* (cos phi1) (cos phi2))) (* (sin phi1) (sin phi2))))) #s(approx (- (/ (* (pow (cos phi1) 2) (pow (cos phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2)))) (/ (* (pow (sin phi1) 2) (pow (sin phi2) 2)) (- (* (cos phi1) (cos phi2)) (* (sin phi1) (sin phi2))))) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) 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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (*.f64 phi2 (sin.f64 phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) #s(approx (+ (cos (- lambda1 lambda2)) (* phi1 phi2)) #s(approx (+ (cos lambda1) (+ (* lambda2 (sin lambda1)) (* phi1 phi2))) (*.f64 lambda2 (sin.f64 lambda1))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (*.f64 phi1 (sin.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) (*.f64 #s(approx (cos lambda2) #s(literal 1 binary64)) (cos.f64 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 #s(approx (cos (- lambda1 lambda2)) (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 (+ (* (* (cos lambda2) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (+ (* phi2 (sin phi1)) (* (cos lambda2) (cos phi1))) (+.f64 (cos.f64 lambda2) (*.f64 phi1 phi2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi1 (/ (PI) 2)) phi2)) (sin (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos lambda1) (* (cos phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (sin phi1) (sin phi2))) #s(approx (+ (* (cos phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin phi2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))) R)
(.f64 #s(approx (- (/ (PI) 2) (asin (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (asin.f64 #s(approx (+ ( (cos phi1) (* (cos phi2) (cos (- lambda1 lambda2)))) (* (sin phi1) (sin phi2))) #s(approx (+ (* phi2 (sin phi1)) (* (cos phi1) (cos (- lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 phi1 phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(approx (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (sin (+ (neg phi2) (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (sin (+ (neg phi1) (/ (PI) 2))) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (/ (+ (sin (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))) (sin.f64 (+.f64 phi2 (.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 (+ (* (cos (- lambda1 lambda2)) (cos phi1)) (* (sin phi1) phi2)) (.f64 phi2 #s(approx (+ (sin phi1) (/ ( (cos phi1) (cos (- lambda1 lambda2))) phi2)) #s(approx (/ (cos (- lambda1 lambda2)) phi2) (/.f64 (cos.f64 lambda1) phi2))))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (cos (- lambda1 lambda2)) (cos phi2)) (* (sin phi2) phi1)) (.f64 phi1 #s(approx (+ (sin phi2) (/ ( (cos phi2) (cos (- lambda1 lambda2))) phi1)) #s(approx (/ (cos (- lambda1 lambda2)) phi1) (/.f64 (cos.f64 lambda1) phi1))))))) R)
(.f64 (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (asin.f64 #s(approx (+ ( (* (cos (- lambda1 lambda2)) (cos phi2)) (cos phi1)) (* (sin phi2) (sin phi1))) #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))))) R)
(.f64 (acos.f64 #s(approx (+ ( (sin phi1) (sin phi2)) (* (* (cos phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 #s(approx (cos (neg lambda2)) #s(literal 1 binary64)) (.f64 lambda1 #s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))))) (cos.f64 phi2)))) R)

Outputs

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

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

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

Calls

1 calls:

8.0ms

phi1

Results

Accuracy	Segments	Branch
32.9%	3	`phi1`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes11.0ms (0%)

Memory

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

Counts

6 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

4 calls:

3.0ms	phi2
2.0ms	phi1
2.0ms	(-.f64 lambda1 lambda2)
2.0ms	(cos.f64 (-.f64 lambda1 lambda2))

Results

Accuracy	Segments	Branch
25.5%	4	`(-.f64 lambda1 lambda2)`
27.0%	2	`phi2`
23.8%	2	`(cos.f64 (-.f64 lambda1 lambda2))`
30.1%	3	`phi1`

Compiler

Compiled 9 to 23 computations (-155.6% saved)

regimes5.0ms (0%)

Memory

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

Counts

5 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

2.0ms	phi1
2.0ms	phi2

Results

Accuracy	Segments	Branch
18.6%	1	`phi2`
26.3%	2	`phi1`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes22.0ms (0.1%)

Memory

-36.0MiB live, 55.2MiB allocated; 8ms collecting garbage

Counts

3 → 1

Calls

Call 1

Inputs

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

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

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

Outputs

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

Calls

10 calls:

4.0ms	phi1
2.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
2.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)
2.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
2.0ms	phi2

Results

Accuracy	Segments	Branch
16.6%	1	`phi2`
16.6%	1	`(-.f64 lambda1 lambda2)`
16.6%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
16.6%	1	`(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
16.6%	1	`lambda1`
16.6%	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)`
16.6%	1	`R`
16.6%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
16.6%	1	`lambda2`
16.6%	1	`phi1`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes16.0ms (0%)

Memory

-1.9MiB live, 44.1MiB allocated; 2ms collecting garbage

Counts

2 → 1

Calls

Call 1

Inputs

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

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

Outputs

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

Calls

10 calls:

4.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)
1.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
1.0ms	lambda1
1.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
1.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
8.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)`
8.8%	1	`phi1`
8.8%	1	`phi2`
8.8%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
8.8%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
8.8%	1	`lambda1`
8.8%	1	`(-.f64 lambda1 lambda2)`
8.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)))))`
8.8%	1	`R`
8.8%	1	`lambda2`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

regimes11.0ms (0%)

Memory

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

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

Inputs

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

Outputs

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

Calls

10 calls:

1.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)
1.0ms	(acos.f64 (+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
1.0ms	(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
1.0ms	phi1
1.0ms	phi2

Results

Accuracy	Segments	Branch
3.8%	1	`phi2`
3.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)))))`
3.8%	1	`lambda1`
3.8%	1	`(-.f64 lambda1 lambda2)`
3.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)`
3.8%	1	`R`
3.8%	1	`(cos.f64 (-.f64 lambda1 lambda2))`
3.8%	1	`lambda2`
3.8%	1	`(+.f64 (.f64 (sin.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
3.8%	1	`phi1`

Compiler

Compiled 64 to 86 computations (-34.4% saved)

bsearch174.0ms (0.5%)

Memory

-8.4MiB live, 320.6MiB allocated; 45ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
91.0ms	2.0230257616729457e-32	9.54766192691618e-14
73.0ms	-2.266510281111343e-7	-5.108415459032596e-22

Samples

133.0ms	275×	1	valid
14.0ms	45×	0	valid

Compiler

Compiled 1 192 to 1 015 computations (14.8% saved)

Precisions

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

ival-cos: 43.0ms (32.4% of total)

ival-sin: 34.0ms (25.6% of total)

adjust: 27.0ms (20.3% of total)

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

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

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

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

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.0230257616729457e-32	9.54766192691618e-14
1.0ms	-2.266510281111343e-7	-5.108415459032596e-22

Compiler

Compiled 1 182 to 1 005 computations (15% saved)

bsearch7.0ms (0%)

Memory

-33.7MiB live, 11.3MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
5.0ms	2.0230257616729457e-32	9.54766192691618e-14
1.0ms	-2.266510281111343e-7	-5.108415459032596e-22

Compiler

Compiled 1 182 to 1 005 computations (15% saved)

bsearch639.0ms (1.9%)

Memory

-222.9MiB live, 491.8MiB allocated; 1.2s collecting garbage

Algorithm

4×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
29.0ms	1.467285330833548e+153	1.8364873659520577e+153
56.0ms	1.7982496214911135e-31	8.502671958241044e-29
461.0ms	-2373795.2678972357	-1.7937368070847485e-24
76.0ms	-7.686475432224157e+111	-1.0076248194777952e+108

Samples

191.0ms	369×	1	valid
20.0ms	111×	0	valid

Compiler

Compiled 1 851 to 1 548 computations (16.4% saved)

Precisions

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

ival-cos: 79.0ms (42.8% of total)

ival-sin: 51.0ms (27.6% of total)

ival-mult!: 16.0ms (8.7% of total)

adjust: 14.0ms (7.6% of total)

ival-acos: 14.0ms (7.6% of total)

ival-sub!: 8.0ms (4.3% of total)

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

bsearch58.0ms (0.2%)

Memory

33.0MiB live, 123.4MiB allocated; 10ms collecting garbage

Algorithm

4×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
0.0ms	1.467285330833548e+153	1.8364873659520577e+153
50.0ms	9.350710941820112e-14	9.15433748641465e-12
1.0ms	-2373795.2678972357	-1.7937368070847485e-24
1.0ms	-7.686475432224157e+111	-1.0076248194777952e+108

Samples

39.0ms	80×	1	valid
5.0ms	32×	0	valid

Compiler

Compiled 2 013 to 1 646 computations (18.2% saved)

Precisions

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

ival-cos: 13.0ms (35.3% of total)

ival-sin: 10.0ms (27.1% of total)

ival-mult!: 4.0ms (10.9% of total)

adjust: 3.0ms (8.1% of total)

ival-add!: 3.0ms (8.1% of total)

ival-acos: 3.0ms (8.1% of total)

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

bsearch18.0ms (0.1%)

Memory

-39.7MiB live, 13.6MiB allocated; 16ms collecting garbage

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
0.0ms	1.467285330833548e+153	1.8364873659520577e+153
1.0ms	9.350710941820112e-14	9.15433748641465e-12
14.0ms	-2373795.2678972357	-1.7937368070847485e-24

Compiler

Compiled 1 429 to 1 174 computations (17.8% saved)

bsearch130.0ms (0.4%)

Memory

30.2MiB live, 262.9MiB allocated; 23ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
61.0ms	9.411599456088636e-14	2.1567754459990198e-5
61.0ms	-897.8972564260679	-6.139072505866438e-8

Samples

73.0ms	158×	1	valid
32.0ms	146×	0	valid

Compiler

Compiled 1 276 to 1 051 computations (17.6% saved)

Precisions

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

ival-cos: 31.0ms (35.4% of total)

ival-sin: 28.0ms (32% of total)

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

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

adjust: 6.0ms (6.8% of total)

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

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

bsearch124.0ms (0.4%)

Memory

11.5MiB live, 244.7MiB allocated; 22ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
48.0ms	2.2109366740973283e-50	1.8720760577719423e-48
67.0ms	-0.0747562632845445	-2.266510281111343e-7

Samples

95.0ms	199×	1	valid
8.0ms	57×	0	valid

Compiler

Compiled 886 to 761 computations (14.1% saved)

Precisions

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

ival-cos: 38.0ms (42.3% of total)

ival-sin: 23.0ms (25.6% of total)

ival-mult!: 11.0ms (12.3% of total)

adjust: 8.0ms (8.9% of total)

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

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

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

bsearch186.0ms (0.6%)

Memory

-18.7MiB live, 311.3MiB allocated; 60ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
113.0ms	0.6016697951393685	3303139129903007.5
61.0ms	-1.3254324713529642	-0.0747562632845445

Samples

144.0ms	212×	1	valid
13.0ms	60×	0	valid

Compiler

Compiled 1 232 to 948 computations (23.1% saved)

Precisions

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

ival-cos: 49.0ms (33.6% of total)

adjust: 42.0ms (28.8% of total)

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

ival-mult!: 10.0ms (6.9% of total)

ival-acos: 8.0ms (5.5% of total)

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

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

bsearch40.0ms (0.1%)

Memory

41.8MiB live, 86.8MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
35.0ms	0.6016697951393685	3303139129903007.5
1.0ms	-1.3254324713529642	-0.0747562632845445

Samples

29.0ms	52×	1	valid
2.0ms	12×	0	valid

Compiler

Compiled 1 147 to 914 computations (20.3% saved)

Precisions

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

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

ival-cos: 10.0ms (34.8% of total)

adjust: 2.0ms (7% of total)

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

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

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

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

bsearch49.0ms (0.1%)

Memory

-27.1MiB live, 69.6MiB allocated; 12ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	2.0230257616729457e-32	9.54766192691618e-14
40.0ms	-1.3254324713529642	-0.0747562632845445

Samples

31.0ms	61×	1	valid
5.0ms	35×	0	valid

Compiler

Compiled 1 113 to 897 computations (19.4% saved)

Precisions

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

ival-cos: 10.0ms (39.1% of total)

ival-sin: 7.0ms (27.4% of total)

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

adjust: 2.0ms (7.8% of total)

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

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

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

bsearch64.0ms (0.2%)

Memory

-12.8MiB live, 123.5MiB allocated; 12ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
56.0ms	3303139129903007.5	57735148801097120.0
1.0ms	-1.3254324713529642	-0.0747562632845445

Samples

46.0ms	85×	1	valid
5.0ms	27×	0	valid

Compiler

Compiled 883 to 725 computations (17.9% saved)

Precisions

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

ival-cos: 16.0ms (34.9% of total)

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

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

ival-mult!: 4.0ms (8.7% of total)

adjust: 3.0ms (6.5% of total)

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.0230257616729457e-32	9.54766192691618e-14

Compiler

Compiled 512 to 445 computations (13.1% saved)

bsearch68.0ms (0.2%)

Memory

35.6MiB live, 132.1MiB allocated; 14ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
63.0ms	-0.0012518822672155767	-3.713651140288522e-6

Samples

54.0ms	112×	1	valid
3.0ms	16×	0	valid

Compiler

Compiled 446 to 385 computations (13.7% saved)

Precisions

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

ival-cos: 23.0ms (44.4% of total)

ival-sin: 10.0ms (19.3% of total)

ival-mult!: 8.0ms (15.4% of total)

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

adjust: 4.0ms (7.7% of total)

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

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

bsearch141.0ms (0.4%)

Memory

-16.0MiB live, 262.4MiB allocated; 26ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
69.0ms	-1.103727170811406e-87	-1.2751991449736418e-92
64.0ms	-3.713651140288522e-6	-3.0369335617226974e-9

Samples

109.0ms	241×	1	valid
11.0ms	30×	0	valid
0.0ms	1×	2	valid

Compiler

Compiled 1 467 to 1 011 computations (31.1% saved)

Precisions

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

ival-cos: 45.0ms (41.2% of total)

ival-sin: 33.0ms (30.2% of total)

ival-mult!: 10.0ms (9.2% of total)

adjust: 9.0ms (8.2% of total)

ival-acos: 9.0ms (8.2% of total)

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

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

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-1.103727170811406e-87	-1.2751991449736418e-92
1.0ms	-3.713651140288522e-6	-3.0369335617226974e-9

Compiler

Compiled 1 450 to 994 computations (31.4% saved)

bsearch68.0ms (0.2%)

Memory

9.1MiB live, 108.0MiB allocated; 23ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
63.0ms	-0.0012518822672155767	-3.713651140288522e-6

Samples

56.0ms	96×	1	valid
3.0ms	16×	0	valid

Compiler

Compiled 694 to 473 computations (31.8% saved)

Precisions

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

ival-cos: 13.0ms (37.6% of total)

ival-sin: 9.0ms (26% of total)

adjust: 4.0ms (11.6% of total)

ival-mult!: 4.0ms (11.6% of total)

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

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

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

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-0.0012518822672155767	-3.713651140288522e-6

Compiler

Compiled 454 to 393 computations (13.4% saved)

bsearch2.0ms (0%)

Memory

-43.2MiB live, 4.2MiB allocated; 1ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
2.0ms	2.0230257616729457e-32	9.54766192691618e-14

Compiler

Compiled 582 to 485 computations (16.7% saved)

bsearch55.0ms (0.2%)

Memory

27.0MiB live, 124.4MiB allocated; 4ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
51.0ms	-5.898930204974343e-13	-2.8054450221358817e-16

Samples

38.0ms	101×	1	valid
7.0ms	27×	0	valid

Compiler

Compiled 574 to 433 computations (24.6% saved)

Precisions

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

ival-cos: 14.0ms (35.3% of total)

ival-sin: 10.0ms (25.2% of total)

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

adjust: 4.0ms (10.1% of total)

ival-add!: 3.0ms (7.6% of total)

ival-acos: 3.0ms (7.6% of total)

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

bsearch113.0ms (0.3%)

Memory

49.5MiB live, 290.6MiB allocated; 14ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
61.0ms	-1.6645712103075752e-285	-1.5396228689844965e-294
45.0ms	-0.020941166389337355	-0.0012518822672155767

Samples

77.0ms	202×	1	valid
8.0ms	48×	0	valid
7.0ms	4×	2	valid
2.0ms	2×	3	valid

Compiler

Compiled 1 526 to 969 computations (36.5% saved)

Precisions

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

ival-cos: 34.0ms (41.1% of total)

ival-sin: 15.0ms (18.1% of total)

ival-mult!: 12.0ms (14.5% of total)

adjust: 11.0ms (13.3% of total)

ival-acos: 9.0ms (10.9% of total)

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

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

bsearch97.0ms (0.3%)

Memory

-6.7MiB live, 117.9MiB allocated; 69ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
80.0ms	1.5414697230883217e-215	1.7915437752053325e-214
1.0ms	-0.020941166389337355	-0.0012518822672155767

Samples

70.0ms	83×	1	valid
2.0ms	1×	3	valid
2.0ms	9×	0	valid
1.0ms	3×	2	valid

Compiler

Compiled 2 372 to 996 computations (58% saved)

Precisions

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

ival-cos: 12.0ms (41.1% of total)

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

adjust: 4.0ms (13.7% of total)

ival-mult!: 4.0ms (13.7% of total)

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

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

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

bsearch128.0ms (0.4%)

Memory

27.0MiB live, 169.8MiB allocated; 84ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.5414697230883217e-215	1.7915437752053325e-214
124.0ms	-0.9467427280135344	-0.020941166389337355

Samples

54.0ms	31×	0	valid
54.0ms	81×	1	valid

Compiler

Compiled 2 393 to 996 computations (58.4% saved)

Precisions

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

ival-sin: 58.0ms (56.3% of total)

ival-acos: 25.0ms (24.3% of total)

ival-cos: 12.0ms (11.7% of total)

ival-mult!: 4.0ms (3.9% of total)

adjust: 3.0ms (2.9% of total)

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

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

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.5414697230883217e-215	1.7915437752053325e-214
1.0ms	-0.9467427280135344	-0.020941166389337355

Compiler

Compiled 2 393 to 996 computations (58.4% saved)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.5414697230883217e-215	1.7915437752053325e-214
1.0ms	-0.9467427280135344	-0.020941166389337355

Compiler

Compiled 2 172 to 918 computations (57.7% saved)

bsearch105.0ms (0.3%)

Memory

4.0MiB live, 196.9MiB allocated; 23ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
55.0ms	6.804254489748876e-279	4.458590117762604e-275
44.0ms	-0.9467427280135344	-0.020941166389337355

Samples

72.0ms	175×	1	valid
15.0ms	47×	0	valid
2.0ms	1×	3	valid
0.0ms	1×	2	valid

Compiler

Compiled 2 747 to 1 092 computations (60.2% saved)

Precisions

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

ival-cos: 26.0ms (32.7% of total)

ival-sin: 21.0ms (26.4% of total)

ival-mult!: 16.0ms (20.1% of total)

adjust: 7.0ms (8.8% of total)

ival-acos: 7.0ms (8.8% of total)

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

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

bsearch3.0ms (0%)

Memory

-44.7MiB live, 3.6MiB allocated; 3ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
2.0ms	-0.9467427280135344	-0.020941166389337355

Compiler

Compiled 603 to 396 computations (34.3% saved)

derivations1.0s (3%)

Memory

30.9MiB live, 1 217.8MiB allocated; 97ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 4 107 to 398 computations (90.3% saved)

preprocess427.0ms (1.3%)

Memory

-44.7MiB live, 660.3MiB allocated; 112ms collecting garbage

Remove

(sort phi1 phi2)

(negabs R)

Compiler

Compiled 31 984 to 10 206 computations (68.1% saved)

end0.0ms (0%)

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